Написать программу, нахождения всех четных чисел до заданного положительного числа а

Question

Кира Новикова

Информатика

14 марта, 01:15

Написать программу, нахождения всех четных чисел до заданного положительного числа а

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Алексей Вавилов · Answer 1

progaram q;

var i, n, a:integer;

begin

readln (a);

for i:=1 to a do

if i mod 2 = 0 then

begin

n:=n+1; / /количество четных чисел

writeln (i); / /сами четные числа до числа а

end;

writeln (n);

end.