Выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.
Выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.
Гость
Ответ(ы) на вопрос:
Гостьprogram zadacha;
var a,p,n,i:integer;
begin
writeln;
writeln('введи число n');{число, до которого перемножаем четные числа}
read(n);
p:=1;
i:=2;
while p
Не нашли ответ?
Похожие вопросы