Найдите произведение 5 целых чисел паскаль
Найдите произведение 5 целых чисел паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar a, p, t: longint;
begin
p:=1;
for t: 1 to 5 do
begin
readln (a);
p:=p*a;
end;
writeln (p);
end.
Не нашли ответ?
Похожие вопросы