Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
z478
31.03.2021 22:15 •
Информатика
Вот училка задала на отработку по программированию на паскаль ! решите : ) " дано целое число. определить, является ли оно кратным 5 и 10 "
Показать ответ
Ответ:
maksimesaulav46
02.10.2020 12:53
Uses crt;
var
a:integer;
begin
clrscr;
readln(a);
if (a mod 5=0)and(a mod 10=0)then
writeln('кратное')
else
writeln('не кратно');
readkey;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
rustie
06.03.2023 21:59
Записать внутреннее представление десятичных чисел: 28, -28....
соняпросоня
16.11.2020 18:22
объявить целочисленный массив из 20 элементов заполнить массив случайными числами в интервале от 0 до 80 вывести исходный массив на экран вывод организовать с выводом по...
шота1
24.11.2020 20:16
Назовите правила преобразования информации...
Denistypitjin
18.01.2023 23:41
Установите соответствие между информации по области возникновения: социальная биологическая элементарная...
чепловец
03.02.2020 16:34
Запишите число в естественной форме: c)6838,456 * e-2 d)0,015056 * e+4...
MomoiSatsuki16
03.02.2020 16:34
Дан массив из n действительных чисел. заменить все его члены, большие данного z, этим числом. подсчитать количество замен....
anutik4
17.08.2022 13:00
Запиши мантиссу числа и порядок числа 214=0,214⋅10^9 мантисса: порядок: ! (...
arsen992015
07.05.2020 19:17
посчитайте передаточное отношение зубчатых передач изображённых на рисунках....
rgfheh
13.01.2023 18:29
Життєва ситуація: ви прийшли до друга,а в його бабусі день народження.ви цього не знали.як ви привітаєте бабусю? ) на укр и )...
planeta88
13.01.2023 18:29
Составить предложение с действительными причастиями настоящего времени...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:integer;
begin
clrscr;
readln(a);
if (a mod 5=0)and(a mod 10=0)then
writeln('кратное')
else
writeln('не кратно');
readkey;
end.