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

Question

Мара

3 июля, 13:42

+1

Ответы (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.