Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
GorkiyShokolaD
07.02.2021 20:04 •
Информатика
Дано два числа.если их сумма кратна 5,прибивать 1,иначе вычесть 2
Показать ответ
Ответ:
NekitKrut2007
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 оценок)
Популярные вопросы: Информатика
gmagima
09.01.2020 20:16
программа Кумир,скажите координаты этого рисунка....
Lera2010K
10.08.2022 20:04
Работа в программе КумирЗадание по фотографии...
839010
28.02.2021 13:49
ИНФОРМАТИКА Выберите виды серверов в зависимости от типа услуги. 1) интернет-серверы 2) файловые серверы 3) музыкальные серверы 4) wеb-серверы 5) почтовые серверы 6) игровые серверы...
Сакураджи
10.09.2022 13:40
Дан фрагмент таблицы «Озера Казахстана». Используя встроенные функции, запиши формулу нахождения самого маленького озера Казахстана ( по площади) * Подпись отсутствует=МИН(B2:B6)=МИН(C2:C6)=МАКС(C2:C6)МИН(B2:B6)...
nenshina
23.04.2020 11:34
Постройте таблицу истинности для высказывания не (A и B) или C...
dasharau27
13.06.2021 06:43
с информатикой В,Г,Д...
lubivyjn
27.01.2020 14:02
Що буде виведено у консоль в результаті виконання операторів?х = 4.5у = 2print (x//y)...
GDIZzzEr
10.08.2022 13:31
Сколько килобайт весит книга в которой 100 страниц, на каждой странице 70 строк, в строке 60 символов. Картинок в книге нет. ответы: 1)410,1563 кб 2)500 кб 3)510,3 кб...
саша23310
10.08.2020 00:16
Задача. Дано список оцінок, отриманих учнями за про Скласти програму опрацювання списку. ня тесту. Складіть програму для визначення: б) кількості учнів, які отримали оцінку, вищу за...
DariaTheBest5
27.09.2021 05:11
1.Напишите наибольшее целое число х , для которого истенно высказывание:НЕ(Х =7). 2 Напишите наименьшее целое число х, для которого истенно высказывание НЕ(Х 9)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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