Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Аннасherry
29.09.2021 12:40 •
Информатика
Дано два числа.если их сумма кратна 5,прибивать 1,иначе вычесть 2
Показать ответ
Ответ:
NiceLeave
03.08.2020 12:29
Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
A:=A+B;
if A mod 5 = 0 then A:=A+1
else A:=A-2;
WriteLn(A);
End.
Введите два числа: 17 13
31
0,0
(0 оценок)
Популярные вопросы: Информатика
bobina2
20.05.2020 02:21
1. Определите значение переменной a после выполнения фрагмента программы: a := 10; if a 5 then a := 5;...
azia2995
23.08.2022 21:12
Как называется канал передачи информации от объекта к регулятору?...
ArbuzovAndrey
19.11.2021 04:18
Во в документе. Документ прилеплен....
coolmaVIP
19.11.2021 04:18
Пердставить десятичное число в развёрнутой форме записи 1928...
fotoschoolio
01.05.2020 09:37
ААААА С ИНФОРМАТИКОЙ, УЖЕ ЧАС СИЖУ, ВООБЩЕ НИЧЕГО НЕ ПОНИМАЮ...
egorka22a
12.04.2021 20:48
2. Определите значение переменной a после выполнения фрагмента программы: a := 10; if a 5 then a := 12;...
plalisa
26.09.2021 16:37
Начнем с простого: нарисуем правильный восьмиугольник. Угол можно рассчитать по формуле (180 * (n - 2)) / n Где n - количество сторон правильного многоугольника Помните, чтобы...
Mucuo31
12.11.2021 04:50
ПРОГРАММИРОВАНИЕ PascalABC вводится температура воды ( больше О, меньше О или равная О). В зависимости от введённой температуры вывести одно из сообщений: - нагревается -простой...
alef911
26.11.2020 06:29
ПРОГРАММИРОВАНИЕ PascalABC Вводится число целое. Если оно отрицательное, то вывести его квадрат, если оно положительное, вывести его куб, иначе (оно равное нулю) вывести сообщение...
rublevaelina57
02.11.2022 08:04
Почему выдает ошибку uses crt; const n=10; var a,g: array [1..100] of integer; var b : array [1..100] of string; var m,i,j,x,o,k: integer; var p: array[1..100] of integer;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
A:=A+B;
if A mod 5 = 0 then A:=A+1
else A:=A-2;
WriteLn(A);
End.
Введите два числа: 17 13
31