Комментарии: Решаем задачи Абрамян на Паскале. For12

Автор: Anton

Anton — Sat, 02 Apr 2016 14:34:27 +0000

В ответ на AlexB. Согласен, поправил.

Автор: AlexB

AlexB — Sat, 02 Apr 2016 10:10:04 +0000

Надо еще поправить начальный Rez. (В варианте кода Артёма правильно. )
Есть: Rez:=0; { иначе всё произведение всегда будет равно 0}
Должно быть Rez:=1;

Автор: Anton

Anton — Fri, 26 Dec 2014 02:40:33 +0000

Поправил.
Было:

For i:=1  to N do Rez:=Rez+1+0.1*i;

1	For i:=1 to N do Rez:=Rez+1+0.1*i;

Стало:

For i:=1  to N do Rez:=Rez*(1+0.1*i);

1	For i:=1 to N do Rez:=Rez(1+0.1i);

Автор: Артем

Артем — Thu, 25 Dec 2014 21:02:28 +0000

Немного неправильно, я считаю, должно быть так:

var n,i :integer;
a :real;
begin
writeln('Введите n: ');
readln(n);
a:=1;
for i:=1  to n do 
a:=a*(1+0.1*i);
writeln(a);
end.

var n,i :integer;

a :real;

begin

writeln('Введите n: ');

readln(n);

a:=1;

for i:=1 to n do

a:=a*(1+0.1*i);

writeln(a);

end.