Question

помогите составить программу в паскале нужно найти произведение чисел от 3 до 29 с шагом 0,2

Answer 1

Program z1;
var i,S:real;
Begin
i:=3;
S:=1;
Repeat
S:=S*i;
i:=i+0.2
Until i>29;
writeln('произведение =',S);
end.

Answer 2

var i,s:real;
begin
i:=3;
s:=1;
while i<=29 do begin
s:=s*i;
i:=i+0.2;
end;
writeln(s);
end.