Помогите пожалуста с задачами

[DomiNick]

Сообщение от W.i.d.g.e.t.1

5)

Var S:real;
N,i:integer;
begin
 for 1:=1 to N do
 S:=S+S*0.03;
 i:=i+1;
end;
end.

Вот и я о том же... Это если учитывают, и начисления ровно один раз в год... И надо бы начальное значение S в ReadLn получить...
А вот в СберБанке вроде каждый квартал... Тогда надо до N*4...

В общем случае <for i:=1 to N*R do>, где R - количество начислений в год...

Сообщение от W.i.d.g.e.t.1

а с факториалом...причем тут N? в 6ой задаче.

Я вот тоже сижу думаю... Может подвоха не заметил какого?

9 Найти произведение элементов массива, кратных 3 и 9. Размерность массива – 10. Заполнение массива осуществить случайными числами от 5 до 500.

Немного не соглашусь с ROMA2PVT - то что кратно 9-ти автоматически кратно и 3-м... Так что <and (a[i] mod 9=0)> лишнее...

[W.i.d.g.e.t.1]

вот, задача про бегуна...

var
a:real;
i: byte;
begin
a:=10;
i:=1;
while a<20 do
begin
a:=a*1.1;
i:=i+1;
end;
showmessage('спортсмен пробежит боллее 20 километров в '+inttostr(i)+' день');
end;

про бегуна как-то так должно быть - у меня делфи что-то не алё...

[мизаил18]

Сообщение от ChEaTeR-abc

1)

var
  M,N:integer;

begin
  Writeln('Vvedite chislo M');
  Read(M);
  Writeln('Vvedite chislo N');
  Read(N);
    IF M=N THEN
      begin
        M:=0;
        N:=0;
        Writeln(M,' and ',N);
      end
    ELSE
      begin
        IF M>N THEN N:=M ELSE M:=N;
          Writeln(M,' and ',N);
      end;
      sleep(1000)
end.

Не совсем понял.Нужно чтобы программа случайным образом выбрала букву а пользователь её отгадывал?

PS.Нажми на весы слева

ну я так понял что да

[мизаил18]

ЛЮДИ ДОБРЫЕ ОГРОМЕОЕ ВАМ СПАСИБО УЖЕ И ЗА ЭТО!!!

[RUSt88]

хех... +1 плохой специалист в нашей стране, а еще чего-то жалуются на врачей, мол они не понимают ничего, как же они будут понимать, если за них будут делать лабораторные и т.п., думать не надо и ничего не теряется, а то был бы хотя бы стимул - "денег жаль отдать, лучше сам посижу"

есть такая история, были голодные люди и чтобы их накормить, один человек не дал им еды вдоволь, а дал им удочки, чтоб они сами себе поймали рыбу и научились прокармливать себя без посторонней помощи

[мизаил18]

это не все задачи. остальные аналогичные и я их сам буду уже писать. простите только учусь, некому иногда объяснить что к чему в книге мало что написанно бывает а с примерами понятней гораздо

[Блуд]

3)

writeln('vvedite cheslo');
read(H);

for i:=1 to h-1 do
 begin
 if ((h mod i)=0) then
 f:=f+i+'; ';
end;

read(f);
end

[мизаил18]

помогите еще прошу 2 4 6 пожалуста умоляю

[Блуд]

2)

var
ax,ay,bx,by,cx,cy:integer;
res:real;
begin
read(ax,ay);
read(bx,by);
read(cx,cy);
if ((ax/ay)=(bx/by))and ((bx/by)=(cx/cy)) then
begin
writeln('lejat na 1 linii') ;
sleep(1000)   ;
end
else
//решить АВС

end.

у остальных условие не совсем понятное

[Блуд]

a! это 1+2+3+4+...+a?
но тогда зачем n
отгадать букву,это перебрать все буквы,пока не найдётся та,которую ты задумал?