Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
elfimovakd
13.02.2021 17:05 •
Информатика
Составить программу для решения : задай число,определите,кратно ли оно10
Ответ:
амина11
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 оценок)
Популярные вопросы: Информатика
Sagymbekova1
28.12.2020 03:30
Число 2072 записали в двоичной системе счисления, затем поменяли нули на единицы, а единицы на нули и перевели обратно в десятичную систему. что получили? в качестве ответа...
павликпавлик2
19.02.2021 17:34
3найти количество отрицательных элементов каждого столбца матрицы х(5,6). результат записать в вектор к(6)....
ffinparnisha
20.12.2021 23:52
На паскале ! определить количество посетителей салона, которых успеет обслужить мастер-стилист, если его рабочий день составляет t часов и известна продолжительность (в минутах)...
optymus
27.10.2021 14:17
Придумайте математическое выражение, содержащее или корень, или степень, или модуль и написать программу, которая вычисляет значение выражения, с условным оператором....
БеллаСAT
09.04.2022 10:03
Вмассиве 8 элементов напишите программу которая находит сумму положительнух чмсел и кол во чисел =0...
tln72
09.04.2022 10:03
Регистры процессора — это ячейки оперативной памяти программы, обеспечивающие связь процессора с оп ячейки процессорной памяти ячейки внешней памяти программы, обеспечивающие...
creatorX
15.08.2022 14:55
Какие устройства изпользует человек, осуществляя информационные процессы ?...
akow08
06.03.2022 12:28
Жаппай жұмыссыздық неге алып келеді...
НикаКлубника11
16.03.2023 14:30
нужно написать антоним к словам қымбат жаңа лас кең сұйық жақсы ащы ұзын...
Leranikitina199
03.07.2020 09:27
лабораторная работа подпишите что указано на рисунке 1234...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.