Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nooooovikovaaaaa345
29.06.2020 17:26 •
Информатика
Определить два наибольших числа в последовательности и найти их частное. не через массивы. паскаль.
Показать ответ
Ответ:
Алина15989
01.10.2020 19:14
Var
max, prev_max, n: integer;
begin
max := -10000;
prev_max := -10000;
repeat
read(n);
if n > max then begin
prev_max := max;
max := n;
end;
until n = 0;
writeln(max, ' ', prev_max, ' ', prev_max / max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
belikvlad14
02.07.2021 11:47
Какие сведения вы храните в своей записной книжки как можно назвать записную книжку в с источники зрения хранения информации...
voprosik003
25.07.2022 17:04
Привет, есть те которые писали этот сор? Надо уже сдать завтра(...
Lenna231
09.06.2021 20:28
Найдите сказуемые враженые прилагательными,сеществительными.,определения выраженые прилагательными, существительными в косвенном падеже наступила осень и это прекрасное время года.птицы...
ivankivolya00p014zd
09.06.2021 20:28
Y=lg |4-x| найдите область определения функции....
makismunguran
09.06.2021 20:28
Синтаксический разбор слова зимой красиво как в сказке...
ирбиз
09.06.2021 20:28
Какие районы земли являются малонаселеными? почему?...
MrFoxTv
09.06.2021 20:28
Задайте формулой линейную функцию, график которой проходит через точку м(3; -4) и параллелен графику функции у=-2х+7. постройте график полученной функции...
kairatfylosof
09.06.2021 20:28
С++ информация о погоде за апрель (температура и осадки) сохранен в массиве. вычислить сколько раз были дожди и количество выпадение снега...
alina56737
09.06.2021 20:28
Чего не было у древних вымерших растений риниофитов по мнению учёных...
Oclahoma
09.06.2021 20:28
Держава отримуэ менше податків.що станиться з економікою краї...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
max, prev_max, n: integer;
begin
max := -10000;
prev_max := -10000;
repeat
read(n);
if n > max then begin
prev_max := max;
max := n;
end;
until n = 0;
writeln(max, ' ', prev_max, ' ', prev_max / max);
end.