Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
marinazajcik0
09.06.2022 08:16 •
Информатика
Напишите программу, которая считает три числа и большее из них уменьшит на 5.
Показать ответ
Ответ:
deemetraa
13.07.2020 08:55
Program gt;
var a,b,c,max:integer;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
if(a=max)then a:=a-5;
if(b=max)then b:=b-5;
if(c=max)then c:=c-5;
writeln(a,' ',b,' ',c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
online19
17.05.2022 06:20
В урне имеется 16 шаров, из них один шар красного цвета с зеленой полосочкой, три шара красного цвета и двенадцать шаров зеленого цвета. Какую степень неопределенности...
cbnybrjds
31.05.2022 17:03
Среди фундаментальных понятий современной науки лишним является: 1.Вещество 2.Электричество 3.Информация 4.Энергия 2) Информацию, отражающую истинное положение дел,...
Nqp
30.04.2020 00:53
1. Что такое алфавит? 2. Что определяет мощность алфавита?3. Что такое информационный вес символа алфавита?4. Как можно измерить информационный объем текста с алфа-витного...
Felipinec
11.11.2021 03:44
Напишите программу, которая находит сумму, произведение и среднее арифметическое трёх целых чисел, введённых с клавиатуры. входные данные: 1 2 3 выходные данные: 1+2+3=6...
Usoll
07.02.2020 09:57
Справка о междугороднем тел. разговоре содержит: номер телефона абонента(6 цифр),дату(год, месяц, число),время(час, минута), код города(3 цифры), номер телефона в...
Katranov2016
03.11.2020 07:54
Вопросы по информатике. 1. развития языка си,его достоинства.особенности языка си 2.общие правила написания программы на языке си,пример,комментарии. 3.элементы языка...
riad170310
03.11.2020 07:54
Составить программу.определить, пересекаются ли линии y=b* x^{2}+c*x+d и y=k*x+m.если пересекаются, найти точки пересечения....
БЕКА200420042004
01.02.2020 05:24
Y=1/(sin(x)+cos(x))+1/(sin(2x)+cos(2x) +….+1/(sin(nx)+cos(nx) при х=0,45 и n=8 решить это уравнение в экселе,и автоматизировать так ,что если я изменю n то всё будет...
Самолеееет555
03.12.2022 00:25
Нарисуй фигуру и заполни алгоритм 1.начало 2.. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.конец...
yuliasolarova
03.12.2022 00:25
Turbo pascal напишите программу, которая в заданной матрице заменяет все положительные элементы нулями, если количество отрицательных элементов окажется больше, чем...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,max:integer;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
if(a=max)then a:=a-5;
if(b=max)then b:=b-5;
if(c=max)then c:=c-5;
writeln(a,' ',b,' ',c);
end.