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

2

Ответы и объяснения

2012-12-23T20:59:36+04:00

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.

  • Kitsu
  • почетный грамотей
2012-12-23T21:38:13+04:00

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.