Нужно составить программу с помощью Repeat…

Нужно составить программу с помощью Repeat, определяющую максимальное из всех введенных вами чисел. (Пусть признаком конца ввода чисел является введенноечисло 0).

в избранное

max80

20 августа 2022

var i, e: Integer; beginWriteln ('Вводите числа: '); i: =0; repeat Readln (e); if e > i then i: =e; until e=0; Writeln ('Наибольшее число: ', i); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Помогите перевести в буквы!

Запишите основные правила оформления таблиц

Выведите все точные квадраты натуральных чисел, не превосходящие данного числаN

Какие виды алгоритмов существует?

Учитель работал в каталогеD: \Материалы к урокам\10 класс\Практические работы

Помогите с PascalABC.net Есть программа, которая во вкладке и ессть word-файл…

Два одинаковых сервера за 3 с могут обработать 3 миллиона запросов от пользовательских компьютеров

Надо составить цепочку из слов от бант до коса так что бы слова через которые проходит цепочка были существительными…

Наименьшая неделимая единица данных на компьютере, с которой можно выполнять операции копирования…

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: