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

0 голосов
167 просмотров

For12°. Дано целое число N (> 0). Найти произведение

1.1 · 1.2 · 1.3 · …

(N сомножителей).


Информатика (36 баллов) | 167 просмотров
Дан 1 ответ
0 голосов

Не понял, для чего эти красивые значки, но в общем вот:

program hello_world;
var n, i: integer; v,x: real;
begin
write('Введите число n - ');
read(n);
x:= 1.2;
v:=1.0;
for i:=1 to n do begin
v:= v*x;
x:= x + 0.1
 end;
writeln('Итог ',v:6:2);

(98 баллов)
0

И end. в конце

0

Последние 2 строки writeln('Итог ' v:6:2) end.