logo
Войти Регистрация Спроси ai-bota


Maryna03
26.05.2020 02:55

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

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
AlsuApuseva
AlsuApuseva
07.01.2021 19:30
Скорость передачи данных по некоторому каналу связи равна 512 кбит/с.передача файла по этому каналу связи заняла 4 мин. определите размер файла в мегабайтах....
plplem9999
plplem9999
07.01.2021 19:30
Скорость передачи данных по некоторооу каналу связи равна 32 кбит/с. передача текстового файла по этому каналу связи заняла 15 с. определите, сколько страниц содержал...
GayaneshkaBrainly
GayaneshkaBrainly
12.06.2021 23:17
Скорость передачи данных по некоторому каналу равна 64000 бит/с. передача файла по этому каналу связи заняла 16 с. определите размер файла в килобайтах....
arrrrrrrrr1
arrrrrrrrr1
10.02.2020 10:20
Очень В программе «:=» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления. Правила выполнения...
domka123456789
domka123456789
27.06.2021 11:27
Якими носиями информации користувались словяне...
Bячеслав
Bячеслав
20.06.2022 21:50
Составьте программу для решения задачи на языке Pascal: 1. Найти значение функции а=. Обратите внимание, что выражение записано под знаком корня, значит должно выполняться...
glebshestopal
glebshestopal
05.06.2021 00:53
Информатика заранее ОТВЕТИТЬ НА ВО Выбери верный адрес ячейки. 1) VP 2) 24 3) D 3 2. Выбери верные ответы. Основные возможности электронных таблиц: 1) анализ и моделирование...
3klass1
3klass1
12.02.2020 11:42
Написать программу на паскале: даны 3 числа, если это куб-найти объём, если это параллелепипед-найти площадь поверхности...
AnikaNay
AnikaNay
12.02.2020 11:42
Графическая форма предстовления информации (множественое число)...
alexfeels555
alexfeels555
12.02.2020 11:42
For i: =1 to n do (как правильно на языке паскаль читается эта строчка? ) (какой цикл выполняет i ? )...
Ответ:
nikav92com
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота