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

Question

Павлин

26 сентября, 15:00

+1

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