tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу, которая
Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел завершение вводом 0
Бика2525
3 26.08.2019 04:20
0
Ответы
denisnickolenko
05.10.2020 20:16
Var
A,M:integer;
Begin
Read(A);
M:=A;
While A<>0 do
Begin
Read(A);
if A>M then M:=A
End;
Write('Max = ',M)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
БеняФазбер
27.11.2020 23:37
У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 3 (b – неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число...
SkriN123
27.11.2020 23:38
У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 3 (b – неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число...
angelnoya1
16.04.2020 11:34
Определите значение переменной с после выполнения следующего фрагмента программы: а: = 50 = 10; a:= a-b*3; if a b then c:=a - bеlѕе c:= b-а;...
sunriseliva
16.04.2020 11:34
Назови основные элементы объекта в программе...
yulokkons
16.04.2020 11:35
1:В 128 символьным алфавитом записано сообщение из 17 символов.Вычислите обьем сообщения2:Дан символ.Запишите десятичный код для данного символа,если используеться таблица...
RussianT
25.07.2019 13:20
Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 3? a : = 10; b : =...
nikakri14
25.07.2019 13:20
Определите значение переменной «a» после выполнения фрагмента программы: a : = 10; b : = 5; if not (a 5) then a : = 5;...
математик215
07.07.2019 20:30
Каждое из логических выражений f и g содержит 5 переменных. в таблицах истинности выражений f и g есть ровно 5 одинаковых строк, причем ровно в 4 из них в столбце значений...
plalisa
07.07.2019 20:30
2. в корзине лежат 32 разноцветных шара. сколько бит информации содержит сообщение о том, что из корзины вытащили красный шар?...
BrainS711
07.07.2019 20:40
Определить количество информации и энтропию сообщения из 5 букв, если число букв в алфавите 32 и все сообщения равно вероятные. формулу и решение*...
Популярные вопросы
Прийменник в слід уживати в рядку побачив (у, в) театрі плавала (у. в)...
3
Завдання з укр лит помиркуйте що було б якби сироманець залишився жити...
3
У выражение: 5b(3c - b) + 3c(c - 5b) Выберите один ответ: 3c² - 5b² 3c²...
1
Что входит в дизайн документации компьютерной игры? *Какие программы...
2
составные порядковые чеслительные: двести шестьдесят восьмой, тисяча...
2
Почему, глядя на цветущие маки, мать вспоминает о своем сыне?...
2
ответить на во Пункт (1) История Великой Отечественной Войны. 1. Этой...
1
Нужно подробно с объяснением...
1
Напишіть що таке фантастичний епізод і 1 приклад....
3
Бұрыштардың өлшемін анықтап жаз. Берілген-нен 20 градусқа үлкен бұрыштар...
1
A,M:integer;
Begin
Read(A);
M:=A;
While A<>0 do
Begin
Read(A);
if A>M then M:=A
End;
Write('Max = ',M)
End.