Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
1sherlock2
14.12.2021 18:34 •
Информатика
Составить программу для решения : задай число,определите,кратно ли оно10
Ответ:
Некий2006
27.05.2020 17:54
Pascal
var n:longint;
begin
read(n);
if n mod 10=0 then writeln('kratno') else writeln('net');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
fgugjxg
20.11.2021 10:00
В отделении Сбербанка работают: консультант, контролёр и заведующий. ИХ фамилии: Петров, Короленко и Шевчук. Известно, что консультант не имеет ни братьев, ни сестер...
atom33
29.08.2020 06:13
1) Как определить, сколько раз выполнится Шаг 2, не выполняя алгоритма? 2)Продолжите фразу: Результат работы алгоритма равен 0 если......
Denmatyanov
21.12.2021 06:12
Турбо паскаль скласти програму виводить на екран перші 10 парних чисел...
romazan4
30.03.2021 18:34
Число 110101 надо перевести в восьмеричное С РЕШЕНИЕМ...
SOFIA0209
02.09.2022 07:23
Построите таблицы истинности для следующих логических выражений...
Ksysoeva20
18.05.2020 07:07
Брусок массою 2 кг лежить на поверхні столу, коефіціент тертя між бруском і столом = 0,3. Яка сила тертя діє на брусок, якщо його тягнуть у горизонтальному напрямі...
KNEZIX
21.08.2020 07:32
с химией №1 Верны ли следующие суждения? А) Реакцию между основным оксидом и кислотой называют реакцией нейтрализации Б) Кислоты- сложные вещества, в состав которых...
lizarodkina
24.08.2020 12:08
Найдите значение выражения. (7-y)²-y(y+3)...
dvolzhenkov
31.12.2022 04:21
Дано sabcd пирамида авсd прямоугольник а=6 см в =8 см sa=sd=sc=13 найти со?...
Вова3371346
28.07.2020 13:23
744 игрушки разложили поровну в 124 одинаковых коробки Сколько нужно коробок чтобы разложить 570 игрушек...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Pascal
var n:longint;
begin
read(n);
if n mod 10=0 then writeln('kratno') else writeln('net');
end.