Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ziko88881
31.07.2021 23:37 •
Информатика
Написать программу,которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0
Показать ответ
Ответ:
julyaloskutowaozd804
20.07.2020 08:51
Var a, max: integer;
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KeyMo
02.04.2023 11:11
Девочки заменили каждую букву В своих имен её номером в кыргызском алфавите у одной получилось 8116 3213 aow другой 11 18 12 0 1 2 3 215 как зовут девочек? ...
Уля220104
22.12.2022 20:30
5. а) Составь высказывания в соответствии с рисунком заполни интеллект-карту. б) ответь устно, какими действиями мальчик нарушаеттехнику безопасности,...
настя7579
27.02.2021 04:30
Напишите программу в C++: Найти сумму и количество целых чисел больших 20, меньших 200 и кратных 3. Вывести числа, удовлетворяющие условию, их количество, найденную...
макс3106
22.09.2020 23:57
Напишите сказку про компьютер из 4-6 предложений....
Мадина1111111112
22.09.2020 23:57
Составьте программу которая выводит на экран пример на умножение двух целых чисел,запрашивает ответ пользователя.проверяет его и выводит соответсвующиеся сообщения...
08077987979
22.09.2020 23:57
Пользователь вводит текст с клавиатуры со скоростью 90 знаков в минуту. какое количество информации будет содержать текст который он набирал 15 минут?...
Egoregoryts
13.03.2020 09:32
найти игру Год не помню, но примерно помню сюжет (играл давно). Нужно играть за шарик, проходить измерения и, вроде как, собирать что-то по типу ключей. Там были такие...
Elyzaveta1
05.08.2021 18:48
3D-модели объектов. Урок 2 Определи количество вдавленных в параллелепипед фигур532нет вдавленых фигур...
Алина050913
24.04.2022 20:29
Чем равен результат слежение чисел 11007+17s...
Zaminaej
21.12.2022 18:55
Исполнитель Студент преобразует число на экране. У исполнителя есть три команды, которым присвоены номера:1. Прибавить 1 2. Умножить на 2 3. Прибавить 3Первая команда...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
end.