Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
artumko04
04.08.2021 04:10 •
Информатика
Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение наибольшего из введённых чисел.используйте оператор while. решить в паскале.
Показать ответ
Ответ:
luss55
02.10.2020 02:13
Var
n,max:Integer;
Begin
max:=1;
n:=1;
While(n<>0) do
begin
Read(n);
if (n>max) then max:=n;
end;
Writeln('Max number = ',max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
envoyfromhell
01.03.2023 12:52
Надо составить программу ,которая может выполнять над двумя числами сложение,вычитание,умножение,деление....
Міла11111
05.12.2020 18:04
Информатика #рассчет интернета в гб #интересное #реальная жизнь решите на гб интернета. 50 . мальчику пете подключили ежемесячно 3 гб интернета. по окончанию каждого...
nikitkashadrin
26.12.2020 13:04
Что понимают под фрагментом изображения у меня СОЧ умоляю вас хелп...
svyara8
07.07.2021 05:24
(3 б.) в таблице запросы к поисковому серверу. для каждого запроса указан его код — соответствующая буква от а до г. расположите коды запросов слева направо в порядке...
вета18С
08.03.2023 23:36
Расскажи об умениях Насти в отношениях хозяйства Кладовая солнца...
1luvash
15.02.2021 07:27
2. Самед, Али, Асиф и Рахим соревнуются в забрасывании мяча в баскетбольную корзину. Каждый из них бросал мяч 10 раз. Результаты попадания мяча в корзину таковы:...
Malayalam
08.12.2020 03:33
Как московские князья боролись за великое княжение? + Приведите примеры....
nikita1247
15.02.2021 07:27
В опуклому многокутнику сума його внутрішніх кутів дорівнює 2340°. Знайти кількість його сторін...
sashabelousoydf1w
08.12.2020 03:33
До ть вправа 481 Заболотний 2017 р. 9 клас...
Патрик3111
08.12.2020 03:33
Бетонную плиту массой 2т равномерно подняли на высоту 5 м совершив для этого работу 10 кДжКакая работа затрачена на преодоление силы трения?Каков коэффициент полезного...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,max:Integer;
Begin
max:=1;
n:=1;
While(n<>0) do
begin
Read(n);
if (n>max) then max:=n;
end;
Writeln('Max number = ',max);
end.