Question

Вывести на экран в столбик, начиная с 2, четные числа. Количество четных чисел вводит пользователь с клавиатуры. Начертить блок-схему, написать программу к задаче в тетради! Например, если пользователь ввел 4, то на экране должно быть следующее 2 4 6 8

Answer 1

uses crt;
var i,k:integer;
begin 
readln(k);
for i:= 1 to k+k do 
if (i mod 2=0) then
writeln(i);
readln;
end.