Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
НатолийАсилич
03.04.2021 12:05 •
Информатика
Составьте и отладьте программу, определяющую максимальное из всех введенных вами чисел. (пусть признаком конца ввода чисел является введенное число 0.) используя цикл с постусловием
Показать ответ
Ответ:
Алина1ззз
20.08.2020 15:57
Program n1;
var a,max: integer;
begin
readln(a);
max:=a;
repeat
readln(a);
if a>max then max:=a;
until (a=0);
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
flanyshkatop
22.12.2022 19:38
Какое условие нужно поставить чтобы был ответ ‘yes’X:=3; y:=8;If then write(‘no’) Else write(‘yes’)1.1. x y-2 1.2. x div y y mod x1.3. (x y) or (x 0) 1.4. x+y div x y+y mod xКакое...
Учитель1236
11.10.2021 03:19
Расставь команды на схеме алгоритма сходи в кино вместо знаков ? впиши слова ДА и НЕТ...
2016mashamulalp0500j
25.12.2021 18:04
Информационными моделями являются: информатика словесные описания карты таблицы схемы персональный компьютер...
danilukm548p09te8
14.02.2020 16:39
Переведите блок-схему на язык Pascal и результат запишите: Дано основание треугольника и его высота, проведенная к основанию. Найти площадь этого треугольника Начало Ввод a и h...
Ликааааааааап
11.11.2021 07:01
очень надо решающая оценка ...
Katushka123123
05.09.2022 17:32
очень надо по dev c++ Составить программу решения: с клавиатуры вводится символ. Вывести на экран двоичный код этого символа....
gehegeghegge
06.08.2022 21:28
с контрольной Очень очень благодарна...
abeke4
19.06.2022 05:55
Считая, что каждый символ кодируется двумя байтами, определите, чему равен информационный объем следующего высказывания: Уинстон Черчилль Любой кризис – это новые возможности...
albina236
01.11.2020 23:18
Лиза вырезала две одинаковые карточки в форме равностороннего треугольника как показано ниже, Какая из фигур приведена на рисунке ниже не может быть получено из 2х данных треугольников...
smail212313
09.07.2020 18:25
Дано: writeln (s:6:2); Если s=112,00037, то на экране появится...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,max: integer;
begin
readln(a);
max:=a;
repeat
readln(a);
if a>max then max:=a;
until (a=0);
writeln(max);
end.