Write a program finding all even numbers up to a given positive number a.
| November 26, 2020 | education
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; // number of even numbers
writeln (i); // even numbers themselves up to number a
end;
writeln (n);
end.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
