tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу,в которой
Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение наибольшего из введённых чисел.используйте оператор while. решить в паскале.
mdjjhhjdjnemash
2 15.06.2019 16:30
1
Ответы
marialkahelp
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
natashaevtushenko
17.09.2020 00:55
определите основные характеристики процессора представленых на рисуноке НУЖНО ...
annakrasnikova2
17.09.2020 00:55
Дұрыс анықтаманы тап. Ақпарат көзі дегеніміз не? ...
manje
17.09.2020 00:57
Расположите приведенные ниже названия Вычисли-тельных устройств в хронологическом порядке их раз-работки.1ENIACНоутбукАбакусСчетная машина ХоллеритаПалочки НепераСуммирующая...
Lizkafrolova228
11.03.2021 19:31
На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём. Найти максимальное из введённых чётных чисел 8класс....
насвай4
11.03.2021 19:31
4.запишите краткую и полную форму алгоритма ветвления 1.2. ...
Lola12131415
30.05.2023 23:14
С ЭТМ ЗАДАНИЕМ КОТОРОЕ НА ФОТО, ПОБЫСТРЕЕ СКИНЬТЕ...
orehova217021970
30.05.2023 23:12
Скільки клітинок є у діапазоні A1:D4? ІТЬ...
lolshowsasdasfd
19.04.2020 16:23
Алгаритм управления чертёжником вот эта фигура )...
и5п5п
19.04.2020 16:23
Виконайте алгоритм. 1. Узяти перше число. 2. Повторити 6 разів (Додати до попереднього числа 3). 3. Результат....
radchukilia
19.04.2020 16:23
Файлы , с какой графикой имеют наименьший размер?...
Популярные вопросы
Нужен текст на про подругу(фигура,прическа,глаза,одежда,характер,дополнительные...
1
Встране вообразилии у саши сбылось 3 заветных желания, а у дедушки фёдора...
1
Высота равнобедренного треугольника равняется 20 см, а его основа - 30см....
1
Разобрать по транскрипции гусь,тигр...
3
Составить сложное предложение с любым из перечисленных слов: эпитет, гипербола,...
1
Укажите делители числа 18,30,15,23,80...
2
ответьте на эти вопросы нужно...
2
Составьте программу нахождения суммы произведения и разности четырех чисел...
3
Запиши каждое число десяткое в виде круглого числа 2дес. 9дес. 6дес. 8дес....
2
Описать актера (любого) (3-4предложения)...
1
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.