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

Question

Павлин

11 марта, 12:42

+5

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