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

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

Задать свой вопрос
Лена Фурштатова
На паскале можно?
Илья Балукин
C++
Dmitroca Regina
здесь ничем посодействовать не могу
Юра
Давайте тогда на Pascal
1 ответ

var

a,n,i:integer;

Begin

read(n);

For i:= 1 to n do

If i mod 2 = 0 then

writeln(i);

end.

На паскале

Юрок Вельмицкий
Там в var можно переменную a убрать, я пренебрегала, просто она нигде не употребляется
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт