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


ooo37
04.10.2020 20:27

Составить программу для решения : задайте целое число ; определите кратно ли оно 5

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
deaddynasty3
deaddynasty3
08.02.2023 05:00
Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 68×68 пикселя, если известно, что в изображении используется палитра...
nestieeeeeee
nestieeeeeee
04.03.2021 05:33
Даны произвольные числа а, б, с узнать можно построить треугольник если длины этих сторон будут эти числа напечатать при каких получится равностороний треугольник...
Мальвина1111112
Мальвина1111112
16.01.2023 22:30
Составить программу,определяющую сумму положительных элементов одномерного массива b,состоящего из 14 вещественных значений...
ася614
ася614
09.02.2022 11:43
Несжатое растворное изображение размером 128×128пикселей занимает 8 кбайт памяти. каково максимально возможное число цветов в палитре изображения?...
stenyakina90
stenyakina90
31.07.2022 14:07
Вид информаций,выраженный с естественных и формальных языков в письменной форме...
12345678910446638
12345678910446638
31.07.2022 14:07
За сколько секунд можно передать по каналу связи текст лбъёмом 1800 байтов,если скорлсть передачи данных равна 14 400 бит/с?...
plkg
plkg
08.05.2021 04:51
После преобразования растрового 256-цветного графического файла в черно-белый формат (2 цвета) его размер уменьшился на 7 кбайт. каков был размер исходного файла в кбайтах?...
саша1501
саша1501
07.06.2021 02:52
Впрограмме «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций...
РЕЛАД
РЕЛАД
10.01.2020 10:20
Переведите целые числа 2194110 и 32110310 в шестнадцатеричную систему счисления с хотя бы каким то :...
Vladimir1023456789
Vladimir1023456789
10.01.2020 10:20
Переведите целые числа 25673510 и 8098410 в восьмеричную систему счисления. с решением хотя бы каким то : ))...
Ответ:
ayaermek
05.10.2020 08:38
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота