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

Question

Информатика

Исакий

3 октября, 11:06

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

+3

Ответы (1)

Знаете ответ?

Божена · Answer 1

Program zadacha;

var a, p, n, i:integer;

begin

writeln;

writeln ('введи число n') ; {число, до которого перемножаем четные числа}

read (n) ;

p:=1;

i:=2;

while p
begin

write (i) ;

write ('; ') ;

p:=p*i;

i:=i+2;

end;

end.