Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
адекс3
05.03.2023 23:46 •
Информатика
Напишите программу в которой осуществляется ввод целых чисел ввод осуществляется до тех пор пока не будет введен 0 и определение максимального числа наибольшее сведенных чисел используется оператор repeat
Показать ответ
Ответ:
1user
03.10.2020 08:25
Var a, max: integer;
begin
read(a);
max:=a;
repeat
read(a);
If a>max then max:=a;
until a<>0;
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aleksandrborodp06tyy
30.08.2022 14:59
Написать две программы на языке с++ для расчета значений переменных y и z по заданным формулам. в первой программе использовать для ввода функцию scanf , для вывода – функцию...
Петя228001
05.10.2022 17:22
Составить алгоритм и написать программу на языке с++. определить, имеет ли решение система {dxax eyby==cf . если решение есть, найти значение x и y....
svelt04
05.01.2020 12:51
3примера различных типов алгоритмов...
kutluyulovarrr
22.07.2020 02:03
Синформатикой, 7 класс формулы известные нам: n = 2i v = k * i и с решением что и как находить сами : 1) что является минимальной еденицей информации 2) алфавит племени пульти...
andrewgray
23.01.2023 21:02
Решить алгоритм сбора яблок 1.начало (в овале) 2.n: =1 (в прямоугольнике) 3.поставить под яблоню пустое ведро (в прямоугольнике) 4. набрать ведро яблок с яблони (в прямоугольнике)...
gordon5
29.01.2021 14:47
Дана программа. Table Дана программа. Table Количество ячеек в таблицеКоличество ячеек в таблице...
зелемхан1
09.05.2023 03:14
Как это решит, побыстрее ¬(А∨В) ∧(А∨¬В)...
allteennkka1985
31.05.2020 08:33
Вычислите с виртуального калькулятора значения выражений. только ответ! : l) 55,58 -34,678 +8,84- 81,3; 2) 8,831+ 0,094+ 31,396 -15,4 3) 2,308* 5,03: 4,1* 1,75 : 4,9 4) 5,8*...
LOLO223
13.02.2020 21:35
Сказали: научитесь делать презентации на любую тему , не знаю какую выбрать !...
EllyGriendfil
03.01.2020 23:15
2метилбутан + h2 2 хлорпропан + cl2 дегидрирование бут-2-ен вторая стадия хлорирования этана...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(a);
max:=a;
repeat
read(a);
If a>max then max:=a;
until a<>0;
writeln(max);
end.