Выведите ** экран четные числа до тех пор пока их произведение не станет больше заданного...

Question

Выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.

Comments

числа вводятся вручную, или в цикле, начиная с 2?

Answer 1

Program zadacha;
var a,p,n,i:integer;
begin
writeln;
writeln('введи число n');{число, до которого перемножаем четные числа}
read(n);
p:=1;
i:=2;
while pbegin 
write(i);
write(';');
p:=p*i;
i:=i+2;
end;
end.