Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
даня125
18.05.2020 15:22 •
Информатика
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется пока не будет введен ноль) и определение максимального ( наибольшего) из введенных чисел. используйте оператор repeat.
Показать ответ
Ответ:
Goym
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 оценок)
Популярные вопросы: Информатика
aArisha2772
03.03.2021 13:27
Написать программу вычисления суммы квадратов первых n натуральных чисел...
crankbait
23.11.2020 05:34
Сообщение в кодировке utf-8 состояло из 23 стандартных ascii символов и 16 букв. затем его перекодировали в 16-битный unicode и объединили с другим unicode-сообщением объемом...
poldin04
23.11.2020 05:34
Как выглядит график функции y=2-cos(3x)?...
GNOMIK2278
19.01.2022 13:32
Как называется минимальный элемент растрового рисунка, для которого можно задать свой цвет?...
Onik2002
31.05.2021 23:28
Число 32 в десятичной системе эквивалентно числу в двоичной 1)100000 2)35 3)21 4)1000...
Sonechka55
09.12.2021 23:19
Заполните таблицу: носитель информации как его сделать источником вид воспринимаемой информации книга снять с полки, открыть и читать зрительная кассета вставить в магнитофон...
polinaguskova
09.12.2021 23:19
Пример с передачой информации когда источников много а приёмник один...
erdanabekok
09.12.2021 23:19
Что значит создать файл? что значит удалить файл?...
annapalko044
09.12.2021 23:19
Составьте программу, которая заполняет массив а[1..10] случайными целыми числами от 0 до 2 и выводит на экран количество элементов, равных 1. pascal abc...
Diana12b
19.10.2020 12:09
Нужно составить блок-схему алгоритма-ветвление для решения : определить является ли точка с координатами x, y частью правой полуплоскости (1 и 4 четверть) (алгоритм не...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.