Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DimaAgent
14.01.2022 19:19 •
Информатика
Программу составить для решение . задать целое число и определить кратно ли оно 10 через turbo pascal
Показать ответ
Ответ:
помогитебиология
17.09.2020 16:47
Program abc;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
if a mod 10=0 then Writeln('Кратно')
else Writeln('Не кратно');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
BountyMars
26.01.2021 05:22
Не включается айфон 4 что делать...
Meryem98
09.01.2021 16:31
СЕГОДНЯ СДАВАТЬ Программа в паскаль Даны 2 числа a и b. Найти a2 - b2. (a=12, b=8)...
Виктория708
09.01.2021 16:31
Пайнт графикалық редакторы және скетчуп программасы құралдарынын қызметінде гі программа ның ұқсастығы мен айырмашылығын анықтап салыстыр...
vlab2018
18.07.2022 22:54
Хелп по информатике ...
Sergei74
18.04.2022 22:30
... Алгоритмом является:1) инструкция сканера2) фотография сканера3) электрическая схема сканера4) блочная схема принтера...
dadert1
26.12.2020 19:05
ЯЗЫК PYTHON я пыталась написать функцию голосования, но если ввести например print(election(0, 0, 0)) то выведет не только 0, но и (0, 0, 0) вот сама задача: Напишите...
avanesyan20011
04.05.2021 07:40
. Выполни программу на языке программирования Python. (и запиши код программы в поле для ответа)...
алишер128
10.01.2020 19:20
2. The main element of the spreadsheet is: DataCellsImagesFontsStyleFilteringTemplate ...
максим1715
10.01.2020 19:20
6. Actual working area of computer s Microsoft Excel is* •notebook•workslide•workbook•notesheet•address line•worksheet•Excel area•desktop ...
ивашка9
24.09.2020 11:56
1. Which program is a spreadsheet? * •Fine Reader•Excel;•Word;•PowerPoint•Movie maker•Adobe Reader•Quattropro;•Superkalk; ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
Writeln('Введите число');
Readln(a);
if a mod 10=0 then Writeln('Кратно')
else Writeln('Не кратно');
end.