Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kiert
24.12.2022 05:09 •
Информатика
Даны три переменные a b c. составить алгоритм который если все они равны выдает об этом сообщение, а в противном случае уменьшает их на 5
Показать ответ
Ответ:
Marfaaax1338
07.10.2020 23:10
Var a,b,c: integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('Все числа равны')
else
begin
a:=a-5; b:=b-5; c:=c-5;
writeln('a = ',a,' b = ',b,' c = ',c);
end;
end.
Пример:
7 5 6
a = 2 b = 0 c = 1
0,0
(0 оценок)
Популярные вопросы: Информатика
кира671
30.03.2021 13:35
Примеры ситуаций,в которых осуществляется обработка информации,ведущей к: а)получению новой информацииб)изменению формы представления существующей информации я буду...
prosto529o
06.09.2022 13:46
Какой запрос нужно ввести в поисковую систему, чтобы найти все веб-страницы, где есть словосочетание: скорая...
Stasya13203
30.05.2022 01:18
10 класс составить программу которая определяет количество цифр во введенном с клавиатуры целом числе. указание. введите число, преобразуйте число в строку, вычислите длину строки...
rsr
17.02.2021 10:37
Данные по температуре воздуха за декаду ноября хранятся в массивеюопределить,сколько раз температура опускалась ниже -10 градусов.заполнение массива осуществить с клавиатуры....
BOYECH
07.10.2021 20:23
1. Используя логические операции, запишите высказывание, истинное при соблюдении условия: только одно из чисел X и Y отрицательно. 2. Составьте таблицу истинности для логической...
olgagolova
05.11.2022 16:29
Какой режим используется (Сортировщик слайдов, Страница заметок, Показ слайдов, Обычный) на данной картинке:...
Levickay991
28.08.2021 20:51
Рассчитайте расходы на бензин для ежедневных поездок с Юго-Востока в центр города на автомобиле. Если известно: • расстояние м/д населёнными пунктами в км. (30 км. в одну сторону)...
adikaeva1973
08.10.2021 03:26
Постройте таблицу в ворде такую же...
Polybel
19.04.2023 09:08
Переведите число 105 в шестнадцатеричную систему счисления....
АзадаЮсупова
19.04.2023 09:08
Дана строка. найти сумму записанных в строке чисел....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('Все числа равны')
else
begin
a:=a-5; b:=b-5; c:=c-5;
writeln('a = ',a,' b = ',b,' c = ',c);
end;
end.
Пример:
7 5 6
a = 2 b = 0 c = 1