Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
zakharskaoye07y
17.07.2020 07:27 •
Информатика
Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение наибольшего из введённых чисел.используйте оператор while. решить в паскале.
Показать ответ
Ответ:
Алина678901
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Goodmegaparadise
07.10.2022 09:29
Вкоробке лежат 32 карандаша разного цвета. скольк информации содержит сообщение о том что из коробки достали зеленый карандаш...
ktotoipotom
29.01.2020 11:01
Даны целые числа m и n. если числа не равны, то заменить первое число нулем, а второе – единицей, а если равны, удвоить значение каждого из чисел. (написать программу...
snojkox
16.03.2020 11:14
Запишите значения элементов массива, сформированного следующим образом: for i:=1 to 8 do a[i]:=i*i...
ROSTMIX
12.04.2021 05:47
Написать программу для вычисления площади прямоугольника применить функцию надо ...
True228228
08.03.2022 20:12
Составьте распростронёные предложения: со словами: посадка и бескрайний...
eriksan1
01.04.2022 21:59
Учимся сочинять.придумай сказку по данному началу.используй предложения со второстепенными членами. если быстро 35 ...
ABAYMALGAZHDAROvvv
08.03.2022 20:12
Опишите любую профессию подробно как и что делать надо сочинение написать...
Petack
08.03.2022 20:12
Красворд №1 1 вопрос бог согласно ерованиям индийцев создавший людей из разных частей тела? 2.юный царевич из индийской легенды живший счастливо до тех пор пока не узнал...
Одуванчик11111111
15.09.2022 01:29
Найдите точку, принадлежащую оси аппликат и равноудалённую от начала координат и точки m (3; −6; 9)....
shmiganastya06
08.03.2022 20:12
Rewrite the complaints using i wish 1.she is such a talkative person. 2.my parents don`t approve of my boyfriend. 3. my grandmother doesn`t like rock music. 4.i don`t...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.