Вывести на экран все числа начиная с единицы до заданного числа n

Question

Информатика

Амос

14 мая, 00:15

Вывести на экран все числа начиная с единицы до заданного числа n

+2

Ответы (1)

Знаете ответ на вопрос?

Дия · Answer 1

Pprogram zad2;

uses crt;

var n, k: integer;

begin clrscr;

readln (n) ;

clrscr;

for k:=1 to n do

if k mod 2 = 0 then

writeln (k) ;

readln;

end.