Напечатать четные, натуральные числа , не превосходящие N.N ввести с клавиатуры.

Напечатать четные, натуральные числа , не превосходящие N.N ввести с клавиатуры. Программа в паскаль.

Задать свой вопрос
1 ответ

program raf105;

var i,n: integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n do

 if i mod 2 = 0

   then writeln(i);

end.

PascalABC 3.4.2

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт