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

Question

Мара

14 февраля, 06:16

+2

Ответы (2)

Знаете ответ?

Васильюшка · Answer 1

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.

Сильвестр · Answer 2

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.