1. Информатика
  2. Вводится натуральное число,

Вводится натуральное число, не превышающее 1 млрд. вывести количество четных чисел. программа на pascal

WaySu WaySu    3   01.09.2019 23:10    0

Ответы
dashavorobeva2 dashavorobeva2  06.10.2020 10:39
Program hhh54;
var x: longint;
begin
  read (x);
  if x mod 2 = 0 then write ('1')
  else write ('0');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
мика559 мика559  18.05.2019 23:30
Составить програмуу для вычисления sin4+sin5+sin6++sin23...
KarinochkaShiну KarinochkaShiну  18.05.2019 23:30
Несколько примеров паралогизмов,софизмов и парадоксов...
nickartyar nickartyar  18.05.2019 23:30
Напишите алгоритм для подсчёта произведения чисел от 3 до 27 , кратных 5...
2004пупик4 2004пупик4  18.05.2019 23:30
Нужно написать программу скорей всего мне кажется в паскале 1. writel( вести стоимость перчатки наприм ) read (x) 2 стоимость сумки- наприм. 3.стоимость ремня- наприм. 4.если общая...
keril1101 keril1101  18.05.2019 23:30
1)в диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3. 2)в диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3....
missmekhtiyeva110803 missmekhtiyeva110803  01.11.2020 10:26
феномен соціальних мереж можна продемонструвати на теорії?а)4 рукостисканняб) 5..в)6..г)7...2)Який тип користувачів соціальних мереж постійно прагнуть ділитися своєю думкою щодо...
plagods plagods  02.06.2019 04:30
Написать программу! ! while и repeat 1)напечатать все отрицательные числа из диапазона от а до б, с шагом h. 2)напишите программу, при выполнении которой с клавиатуры считывается...
nastyakolomiec1 nastyakolomiec1  02.06.2019 04:30
Как сделать компьютер в энергосберегающий режим?...
Saoneck Saoneck  08.06.2019 06:40
Чем в excel отличаются операции перемещения и копирования содержимого ячеек?...
vikafemur vikafemur  27.04.2021 15:00
Оператор цикла, который используется, когда не известно число повторений *варианты ответаforinputwhileif​...

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