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

For12. Дано целое число $$N$$ ($$> 0$$). Найти произведение $$1.1 *1.2 * 1.3 *…$$ ($$N$$ сомножителей).

Решение:

program For12;
var
  N, i :Integer;
  Rez:Real;
begin
  Write('Введите N: ');
  Readln(N);
  rez:=1;
  For i:=1  to N do Rez:=Rez*(1+0.1*i);
  Writeln(Rez);
end.

program For12;

var

N, i :Integer;

Rez:Real;

begin

Write('Введите N: ');

Readln(N);

rez:=1;

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

Writeln(Rez);

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии 4

Артем

26.12.2014 в 01:02

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

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.

1
2
3
4
5
6
7
8
9
10

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.

Ответить
- Anton
  
  26.12.2014 в 06:40
  
  Поправил.
  Было:
  
  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.1*i);
  
  Ответить
AlexB

02.04.2016 в 14:10

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

Ответить
- Anton
  
  02.04.2016 в 18:34
  
  Согласен, поправил.
  
  Ответить

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

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ