Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
petrakovatatya
15.12.2020 16:15 •
Информатика
Дано целое число. если оно кратно 5, то вывести на экран сообщение: «да» и уменьшить число в 5 раз. в противном случае вывести на экран сообщение «нет» и при этом число увеличить в 5 раз.
Показать ответ
Ответ:
Vanya2155
28.07.2020 20:14
Var a:integer;
begin
writeln ('a=');
readln(a);
if a mod 5=0 then writeln ('Yes ',a/5) else writeln('NO ', 5*a);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
надюша5056
05.05.2020 00:00
Синформатикой в яклассе. тема: высказывания выбери верный ответ. волк — самое умное и красивое животное. а)истинное б)ложное г)нельзя однозначно определить...
мскисуля2
01.02.2023 19:36
В ячейке В4 электронной таблицы записана формула =$С3*А2. Какой вид приобретет формула, после того как ячейку В4 скопируют в ячейку D4? 1) =$C5*C4 2) =$C5*A4 3) =...
Stefan123005
25.03.2022 10:07
Вычисли значение математического выражения MS Exel (60+170)-2(72:(3+15)) ответ округли до сотых...
ilyxa24
19.04.2022 22:54
Определите какое число будет выведено на экран в результате работы следующей программы: var i: integer; k,s: real; begin while s 0.9 do begin i:=i+1; k:=1/(2*i); s:=s+k;...
Кейси001
25.12.2020 11:07
Просклонять слово падежам на казахском языке словр қарындаш,оқүшы...
lolkekcheburek15
25.12.2020 11:07
Почему по мнению писателя подати были главной причиной утраты земли частью крестьян...
nemkovvlad1
25.12.2020 11:07
Решите : 10 ящиков-по 3,6 кг 40 ящиков-по 3,2 кг в среднем в 1 ящике-? кг...
dasha1975
25.12.2020 11:07
Определи время года? небо затянуло облаками,кажется низким,дожди затяжные,холодные температура воздуха понизилась,ясных дней мало,постоянно пасмурно или облачно...
yan4enkomaks
25.12.2020 11:07
Из города а в город в вышел поезд со скоростью 50км/ч. через 12 часов из того же города вслед поезду вылетел вертолёт, скорость которого в 7 раз больше скорости поезда,...
mango34
25.12.2020 11:07
Отец обещал сыну за каждую правильно решенную бросать в копилку по 12р, а за каждую неправильно решенную сын должен возвращать по 10р. после того как сын решил 20...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln ('a=');
readln(a);
if a mod 5=0 then writeln ('Yes ',a/5) else writeln('NO ', 5*a);
readln;
end.