Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
bahriddinJoN2085
19.01.2022 09:19 •
Информатика
Составьте программу нахождения суммы двух наибольших из трех различных чисел. pascal abc.
Показать ответ
Ответ:
esketit123
06.10.2020 20:43
Program symma;
var a,b,c,s:integer;
begin
Readln(a,b,c);
if (a > b) and (c > b) then s:=a+c;
if (b > a) and (c>a) then s:=b+c;
if (a>b) and (b>c) then s:=a+b;
if (b>a) and (a>c) then s:=b+a;
Writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
niagara4
18.08.2020 20:48
Кто решить только реальные ответы, а не фигню писать...
hooh232non666
30.01.2020 22:32
Подумай!Что такое оформление презентации?Чем отличается переход между слайдами по щелчку мыши от перехода позаданному времени?...
liza1288
30.01.2020 22:32
Var s, t: integer ; begin readln (s) ; readln (t) ; if (s 9) or (t 9) then writeln ( YES ) else writeln ( NO ) end. Было проведено 9 запусков программы,при которых в качестве...
viklap04
04.12.2021 15:54
Даны числа: 3; 38; 399; 4835; 10034. Используя MS Excel, вычисли среднее арифметическое данных чисел....
tytyuuh88
13.02.2021 13:52
Welcher Schlafraum ist für die Mädchen? Welcher Schlafrau Welcher Raum ist für Spiele und Partys?Welche Kleidung ist für Regenwetter / für Sonnenschein?Welches Spiel ist...
EGORchikchik228
13.02.2021 13:52
Пружинный маятник с жесткостью 1,25 Н/м совершает гармонические колебания. Колебания пружинного маятника показаны на графике. Потенциальная энергия колебательной системы...
SvetaMatyukhina
19.02.2020 13:49
Сөздерден тіркес құра...
Artur68084
13.09.2020 10:38
1. (2 б.) Самоскид вантажністю 6т може перевести вантаж за 12 рейсів. За скільки рейсів може перевезти цей вантажсамоскид вантажністю 9 т?...
alex27045
18.05.2020 14:30
ИКТ напиши назначение кнопок...
kira310
23.06.2020 16:54
Мәтінді тыңдап, оған сәйкес ақпаратты белгіле. Сауран деген қала Түркістанның қасында орналасқан,Жүрген жерлерінде тек жақсы жерлерге кездескен,Асан қайғы атқа мініп,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,s:integer;
begin
Readln(a,b,c);
if (a > b) and (c > b) then s:=a+c;
if (b > a) and (c>a) then s:=b+c;
if (a>b) and (b>c) then s:=a+b;
if (b>a) and (a>c) then s:=b+a;
Writeln(s)
end.