1. Информатика
  2. Дано натуральное число

Дано натуральное число определить является ли оно четным (паскаль)

nyk156 nyk156    3   04.06.2019 04:40    0

Ответы
1Yuki2 1Yuki2  05.07.2020 09:14
Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
chestnut3342 chestnut3342  06.05.2020 15:20
Сколько раз будет выполняться цикл For i:=4 to 4 do…;...
ekaterinasolda ekaterinasolda  06.05.2020 15:20
Скласти порівняльну характеристику засобів складання і виготовлення документів...
ilya3694444 ilya3694444  06.05.2020 15:20
Для перевода из 10-ой системы счисления в любую другую надо: 1. Последовательно делить целую часть на дробную часть этого числа 2.Последовательно делить целую часть и умножать дробную...
ЕсенжоловаЛяззат ЕсенжоловаЛяззат  06.05.2020 15:20
Орентация батырмасынын белгісін көрсетіңіз​...
marusiatabakova2006 marusiatabakova2006  20.04.2020 16:26
Для заданного числа R вывести (‘R 0’), если R отрицательное, и вычисляет площадь круга радиуса R, если R =0. Составьте алгоритм(в письменном виде) и программу (на компьютере)....
mishasinik mishasinik  18.04.2019 14:53
Даны координаты двух фигур шахматной доски, координаты ферзя x1, y1 и координаты еще какой-то фигуры x2, y2 (целые числа, лежащие в диапазоне 1–8). проверить истинность высказывания:...
foxi22 foxi22  07.10.2019 03:40
Напишите в ответе: x в y степени 15...
IvanMalin1 IvanMalin1  07.10.2019 03:40
Курсор или мышка указывает место на экране монитора?...
Бота20081 Бота20081  07.10.2019 03:40
Дан массив из n целых положительных чисел(n не больше 1000),заполненный случайным образом (от 0 до 2000) 1. найти и вывести на экран все трехзначные числа,в которых на первом и...
zali8 zali8  07.10.2019 03:40
Составь истинные высказывания со словами и , или...

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