Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mushdal
16.11.2021 07:00 •
Информатика
Написать программу, которая определяет кратность числа 5, если число кратно 5, тогда приписать к этому числу 8 в конце и выдать на печать полученное число, если не кратно 5, то приписать 1 и выдать на печать
Показать ответ
Ответ:
какасика
24.09.2020 06:50
Var a:integer;
begin
write('Введите число ');
readln(a);
if a mod 5= 0 then a:=a*10+8
else a:= a*10+1;
writeln(a);
end.
Тестовое решение:
Введите число 125
1258
Введите число 101
1011
0,0
(0 оценок)
Популярные вопросы: Информатика
Boodmi
21.11.2020 17:05
Некоторый алфавит содержит 128 символов. сообщение состоит из 10 символов. определите информационных объем сообщения...
Geimer200
21.11.2020 17:05
Орость распространения звука в воздухе в зависимости от температуры может быть найдена приближенно по формуле v=331+0,6t, где v — скорость (в метрах в секунду), t — температура...
Piralta11
05.06.2020 02:36
№1. флэш-карта имеет объем 512 мбайт. рукопись автора содержит 2000 страниц. на каждой странице 80 строк, в каждой строке 100 символов. каждый символ кодируется 16-ю битами....
ktoto215
20.11.2020 17:52
Постройте таблицу истинности по выражению ...
Kykyshonochek1305
02.03.2022 19:16
Постройте таблицу истинности по выражениями...
nika1299
23.12.2020 11:27
Жобага анимацияны не ушин жасаймыз...
zroslama
19.02.2021 02:10
Составьте программу для расчёта b=(17+28t)/(1-27t), t – любое целое число(Подсказка при описание переменной t подумайте она real или integer)....
Max04032003
01.04.2022 13:24
Составьте 3 математических выражения в тетради и запиши их на языке отвечать честно ...
pirishok
14.07.2022 03:15
2) Что напечатается в результате выполнения программы ?K:=6; FOR A:=1 TO 10 DOBEGIN K:=K+1 Write(K,’ ’);END ...
natalyabuben0111
07.12.2022 00:46
Твір на темуSecurity on the street from theftburglary, dropping litter, shoplifting, vandalism, trespassing, robbery, arson, car theft, speeding, downloading films / music...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите число ');
readln(a);
if a mod 5= 0 then a:=a*10+8
else a:= a*10+1;
writeln(a);
end.
Тестовое решение:
Введите число 125
1258
Введите число 101
1011