Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется пока не будет введен ноль) и определение максимального ( наибольшего) из введенных чисел. используйте оператор repeat.

Показать ответ

Ответ:

dasharisk2104

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 оценок)

Популярные вопросы: Информатика

Путин12356

11.04.2022 14:36

Для записи текста использовался 256-символьный алфавит. каждая страница содержит 65 строк по 55 символов. какой объем информации содержат 110 страниц текста? с решением...

Catania2

28.12.2020 10:17

Сдокумент( без упаковки) можно передать по каналу связи с одного компьютера на другой за 40 сек. если предварительно упаковать документ архиватором, передать упакованный...

Violetta1508mailru

28.12.2020 10:17

5. переведите целые числа из десятичной системы счисления в восьмеричную: 13; 148; 2018 6. переведите целые числа из десятичной системы счисления в шестнадцатеричную:...

yurasokolov232

21.11.2021 17:31

1)какие вы можете назвать примеры моделирования в различных областях деятельности? 2)может ли объект иметь несколько моделей? если да то пример 3)могут ли разные объекты...

Когалымчанин

02.05.2020 10:03

1) Як можна демонструвати комп ютерні презентації? 2)Як створити гіперпосилання?3)З чим може бути пов язане гіперпосилання?4)Призначення кнопок дій(таблиця 2.7)5)Як...

Tinka123

03.10.2022 22:40

заполните пропуски Фигуру называют симметричной относительно прямой l, если для каждой данной фигуры точка, ей относительно прямой l, также этой фигуре....

kacok2

18.01.2022 10:09

2)В какой из координатных четвертей пересекаются графики функций у=х+3, и у=-х+2? 1) в четверти 2) во II четверти 3) в III четверти 4) в IV четверти 2)Какая из данных...

Cookiefluffy1500

25.08.2020 07:23

Учебные задания Тема урока: Россия в XIX века Внимательно читая вопрос дайте письменно/полный ответ:1) В социально-экономическом развитии Россия сильно отставала.Доказательством...

helena59365

02.07.2020 00:39

Сравнить(Написав вопросы для сравнения) социально политические кризисы в Польше, ГДР, Венгрии и Чехословакии....

mardon1

30.01.2022 03:56

5 тапсырма. Тыңдалған мәтін бойынша төменде берілген сөздердің қайсысының антонимін, синонимін, омонимін таба аласың? Кестені толтыр...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку