В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Sasha77999
Sasha77999
28.10.2020 01:41 •  Информатика

Информатика буду за . по информатике с сайта acmp три толстяка (время: 1 сек. память: 16 мб сложность: 7%) три толстяка решили поспорить: кто из них самый тяжелый. после взвешивания оказалось, что их масса соответственно m1, m2 и m3 килограмм. считается, что масса толстяка должна быть не менее 94 и не более 727 килограмм. определить массу самого тяжелого из них, либо выяснить, что была допущена ошибка при взвешивании. входные данные входной файл input.txt содержит три целых числа m1, m2 и m3, разделенные пробелом. все числа целые и не превосходят 10 000 по абсолютной величине. выходные данные в выходной файл output.txt выведите массу самого тяжелого толстяка в случае корректного взвешивания, либо слово «error» в противном случае. с сайта acmp , пишет ошибка (на 4 тесте) .что здесь не так? подскажите . pascal(delphi). program tolstiki; {$apptype console} uses sysutils; var a,b,c: integer; begin read(a,b,c); if (a< 94)or (a> 727)or(b< 94)or (b> 727)or (c< 94)or (c> 727) then writeln ('error') else if (a> b)and(a> c) then writeln(a) else if (b> a)and(b> c) then writeln(b) else if (c> b)and(c> a) then writeln(c); readln; readln; { todo -ouser -cconsole main : insert code here } end.

Показать ответ
Ответ:
strume54
strume54
27.09.2019 03:01
Во первых условие на вес желательно если не три толстяка а 1000 студентов завести массив их веса а потом с пузырьчатой сортировки только сделать прохождение по массиву одинажды. в итоге в последнюю я чейку попадает самый большой вес и он выдается на экран например был массив [99,167,700,354] а стал массив [99,167,354,700] в итоге 700 самый большой вес
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота