Найти произведение чисел 135*7 их произведение равно 105 написать эту програму в Pascal

Question

Ангеля

7 июня, 06:44

+5

Ответы (1)

Знаете ответ на вопрос?

Оля · Answer 1

var a, sum: real;

var i: integer;

begin

sum:=1;

a:=1;

for i:=1 to 3 do begin

a:=a+2;

sum:=a*sum;

end;

writeln (sum) ;

end.

Найти произведение чисел 1*3*5*7 их произведение равно 105 написать эту програму в Pascal