1. Информатика
  2. Напечатать четные, натуральные

Напечатать четные, натуральные числа , не превышающие n.n ввести с клавиатуры. программа в паскаль.

razumovnikita51 razumovnikita51    1   22.05.2019 17:53    0

Ответы
kirik2017 kirik2017  18.06.2020 09:21

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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MeilisS MeilisS  28.12.2020 12:43
Запишите использованные при построении табличной модели формулы...
KseniaSob KseniaSob  28.12.2020 12:44
Первый язык программирования высокого уровня. Дать развёрнутый ответ!...
Sawa1605 Sawa1605  08.02.2021 20:55
В ячейке D2 записана формула =5*$A1. A) Какой вид приобретет формула, после того как ячейку D2 скопируют в ячейку C5? B) Какой вид приобретет формула, после того как...
zulyakhalilova zulyakhalilova  14.12.2021 14:06
Jeoloji mühendisi 12039uq0eu-0nrfq0er23 3-8 3rğq0owıeudf0ğqur12uyğ qw-e*rq2 rğ-3r 2ı eıqerı91 23 qğweı1 23eq2-r*12 e-q e921 -efq e-r912 -39 qw34rt234124...
Дениссирвачак Дениссирвачак  14.12.2021 14:12
Jeoloji mühendisi 12039uq0eu-0nrfq0er23 3-8 3rğq0owıeudf0ğqur12uyğ qw-e*rq2 rğ-3r 2ı eıqerı91 23 qğweı1 23eq2-r*12 e-q e921 -efq e-r912 -39 qw34rt234124 1+1=2...
Meow100 Meow100  14.12.2021 14:13
Выберите ошибочный заголовок программы program t1mass2;program mmm;программа t1;program t1;...
Ardashelovna Ardashelovna  14.12.2021 14:14
решить задачу на python за неделю поросёнок набирает 2 кг веса а теряет 850 гпо чётным неделям на 10% большесколько недель потребуется чтобы было 214 кг...
плаг плаг  14.12.2021 14:16
Наполни колбы Наполни все колбы за 6 ходов. Чтобы наполнить колбу, нажми на неё. За один ход ты можешь наполнить максимум 3 колбы. д Сделано ходов: 8 ПЛf Сделать ход...
  14.12.2021 14:18
Выберите верный вариант формирования массива for i:=1 to 10 do M[i:=i*2;for i:=1 to 10 do M[i]:=i*2;for i:=1 to 10 do writeln(M[i]);for i:=1 to 10 do M:=random(15);Нет...
Стася911 Стася911  14.12.2021 14:20
Дана матрица размера M × N. Найти количество ее столбцов, элементы которых упорядочены по убыванию. можно код, и объяснение всей задачи, буду лчень благодарен...

Популярные вопросы