tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу на языке
Напишите программу на языке паскаля через цикл while, которая определяет максимальное из введенных чисел с клавиатуры(ввод чисел заканчивается числом 0).
schakirovamarga
2 06.06.2019 14:00
0
Ответы
Midaw
01.10.2020 20:42
Program red;
var a,max:integer;
begin
max:=-10000;
readln(a);
while a<>0 do begin
if max<a then max:=a;
readln(a);
end;
writeln(max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Anna7225
18.07.2019 12:40
Запишите внутреннее представление следующих десятичных чисел, используя 16-разрядную ячейку: а) -96 б) 57...
иринакодр
18.07.2019 12:40
Почему для хранения растровых изображений требуется большой объём памяти?...
etyan00
05.05.2020 13:22
решить тест информатика 8 класс! ...
Vika201880
05.05.2020 13:23
Java 1. Знайдіть суму, кількість та середнє арифметичне всіх цілих чи- сел з інтервалу [100;200] кратних 17. 2. Ввести з клавіатури n будь-яких чисел. Знайти кількість та...
bananchik1213
07.01.2020 13:43
Получить массив х(n) по правилу: хi =1, если в i-м столбце заданной матрицы есть хотя бы один элемент превышающий заданное значение с, иначе xi=0. найти общее число элементов,...
Люда0001
07.01.2020 13:49
Сделайте, , статистическую таблицу (см. вложенные фотографии) по паркам украины — берите любые маленькие числа и любые характеристики, лишь бы в итоге по формулам правильно...
rebkovets2015
07.01.2020 13:59
Написать программу в кумир черепаха. 100 (если правильно)....
lapohka181202
06.01.2022 01:59
Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения: 1001,112 и 101,012; 4,38 и 17,68; 7,D16 и E,F16;...
MikiMio
06.01.2022 02:20
Купил мышку logitech g102, начал устанавливать lghub, установил всё работало перезагрузил комп, софт включился, затем я его закрыл и решил ещё раз открыть и у меня была...
horsa
19.07.2019 10:30
Определить сумму всех чисел от n до m....
Популярные вопросы
Знайдіть число якщо відомо що 18% його =45...
1
За 2 книги заплатили 272 руб. цена одной книги состоит третью часть цены...
3
Ширина прямоугольной клумбы 2м, а длина- в 4 раза больше. сколько розовых...
3
Отмена плодья и введение системы погостов связано с деятельностью 1)...
1
Решите пропорцию 1 1/8 : 3 3/4 = x : 2 1/3...
1
Что создает нужду что-то изобретать? рассуждение...
2
Мне нужно опис болотяної місцевості...
3
Выражение : (y-2)×(y+-2) в квадрате...
1
Энергия переходит от более нагретого тела к менее нагретому телу: 1)при...
3
It starts on saturday at 5 o clock вопрос к выделенному слову (on saturday)...
2
var a,max:integer;
begin
max:=-10000;
readln(a);
while a<>0 do begin
if max<a then max:=a;
readln(a);
end;
writeln(max);
end.