Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
PolinaRa1610200710
23.12.2020 14:03 •
Информатика
Дано два числа. если их сумма кратна 5, то прибавить 1, иначе вычесть 2. результат вывести на экран.дано два числа. если их сумма кратна 5, то прибавить 1, иначе вычесть 2. результат вывести на экран.написать на языке packal
Показать ответ
Ответ:
svitlanatopp08vqs
07.10.2020 09:54
Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Вилка000
17.01.2020 10:12
К:=Ofor i:=1 to 10 do if a[i]=x thеn k:=k+1; даний фрагмент процедури ...знаходить певне число серед елементівмасивузнаходить кількість значень елементівтабличної величини, що...
TaisiyaP
06.09.2021 05:28
3) У исполнителя Counter две команды, которым присвоены номера: 1. вычти 2; 2.разделить на 3. Запишите порядок команд в программе, которая преобразует число 37 в число 3 и содержит...
dashkaborisova
19.10.2020 01:22
Опишіть процес пошуку найбільшого та найменшого значення в програмі Lazarus?...
katyan1va
03.07.2020 22:01
Указать значение величины л; после выполнения следующих операторов присваивания: б) x : = 17.5 x : = - 2 * x...
k0tesss
17.03.2021 04:00
3.ка рис указана программа движение робота . a)впишите пропущенные слова в тексте:Действия робота зависят от датчика.Робот держит дистанцию в __ см. от препятствия.Для того, чтобы...
осоащумоо
09.10.2020 22:35
Напишите программу, вычисляющую размер двумерного массива. Найдите сумму квадратов каждой строки (python)...
onlysvp
23.11.2021 13:32
Дан массив целых чисел a[1..8]. найти количество отрицательных элементов массива. (без структуры inc )....
АнелияУразбаева
21.08.2021 07:40
Какие события произошли в России феврале--октябре 1917 года? ответьте...
Сыймык111
21.08.2021 07:40
1.Чем нравом кто дурней, тем более кричит и ропщет на людей: не видит добрых он, куда н(2) обернется, а первый сам ни с кем не уживется. 2. Несколько минут никто не проронил ни...
Air100Cake
21.08.2021 07:40
Найдите площадь равностороннего треугольника со стороной 5 см...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.