Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
анастейша1410
02.10.2020 00:11 •
Информатика
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется пока не будет введен ноль) и определение максимального ( наибольшего) из введенных чисел. используйте оператор repeat.
Показать ответ
Ответ:
sofiabts
02.07.2020 14:56
Var
Max, N: Integer;
I: Integer;
begin
I:=0;
Repeat
ReadLn(N);
if I = 0 then
Max:=N
else if N > Max then
Max:=N;
Inc(N);
Until(N = 0);
WriteLn('Max = ', Max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nastyapetrova011
03.06.2021 18:31
Составьте таблицу истинности...
dana1969
07.01.2021 06:50
Сдать решение задачи D-Паутина Ограничение времени: 1 с Оставшиеся посылки: 100 Паутина Паучок находится в левом нижнем углу клетчатой доски размерами N × N , где каждая клетка...
120954943921
08.11.2021 21:30
По горизонтали: 3. Раздел информатики, занимающийся проблемами создания и обработки на компьютере графических изображений, называется компьютерная … ? 4. Как называется минимальный...
cherenko85
24.01.2022 07:07
Оцени значение выражения 4x+3y, если 3 Запиши интервал возможных значений...
sab2021
04.11.2020 16:08
Заполните письмо даю 100/...
ёлкап
03.07.2020 16:25
Чем гордится лирический герой поэмы А.Твардовского За далью жаль ? Какие подвиги народа созидателя он оценивает?...
ambasaddor
03.07.2020 16:25
решить задачу Алфавит некоторого племени состоит из 8 символов. Сколько бит информации несёт написанное с этого алфавита сообщение, состоящее из 56 символов...
Дмитрий1425
03.07.2020 16:25
Длина прямоугольника равна 20 см,а ширина в 4 раза меньше. Найдите периметр и площадь этого прямоугольника...
arsen992015
03.07.2020 16:25
1. Орбитальное квантовое число определяет ... геометрическую форму орбитали положение обитали в энергетический уровень электрона магнитный момент электрона 2. Скорость химической...
Liza16052006
23.12.2020 16:52
Вычисли химическое количество соли, образовавшейся при взаимодействии бромоводородной кислоты и 150 г раствора гидроксида лития с массовой долей LiOH, равной 0,15. Точность...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Max, N: Integer;
I: Integer;
begin
I:=0;
Repeat
ReadLn(N);
if I = 0 then
Max:=N
else if N > Max then
Max:=N;
Inc(N);
Until(N = 0);
WriteLn('Max = ', Max);
end.