Найти произведение чисел 1*3*5*7 их произведение равно 105 написать эту програму в Pascal
Найти произведение чисел 1*3*5*7 их произведение равно 105 написать эту програму в Pascal
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы