Составьте и отладьте программу, определяющую максимальное из всех введенных вами чисел. (пусть признаком конца ввода чисел является введенное число 0.) используя цикл с постусловием
MarinaKim111
1
26.08.2019 16:30
2
Другие вопросы по теме Информатика
morozhenkom
13.07.2019 20:30
милена8963977
13.07.2019 20:20
tyon
10.08.2019 18:40
snyaSergeeva
28.12.2020 09:50
viktoriya229
28.12.2020 09:50
Айхан11111111
03.03.2020 16:57
Нвдуооп
03.03.2020 16:58
egorkakraynov
16.09.2019 03:00
maschavyaznina
16.09.2019 03:00
Популярные вопросы
- Отгадай ребусы.с отгадками составь и напиши по два предложения.определи...
1 - P-34cm ab-17см вс-? на 2 см больше 3 стороны найти все стороны...
2 - Как разобрать слово по составу слышу...
3 - Корудиям труда и предметам быта используемым первобытных людьми до перехода...
2 - Назовите глаголы на -тся и -ться в романе ,,дубровский,,...
1 - Керекті тыныс белгілерді қойып беріңіздерші өтініш! алдын ала, көп-көп рахмет!...
2 - Сколько литров кислорода потребуется для сжигания 672 литров водорода?...
1 - 1. какой вывод можно сделать при сравнении живого мира материков северного...
2 - Отметь, сколько в тексте однокоренных слов. (текст) пёстрые бабочки кружат...
2 - Какие из чисел -5,3; 6,1; -13; -0,8; 0,7; 8,9; -9,1 больше -9 но меньше...
1
var a,max: integer;
begin
readln(a);
max:=a;
repeat
readln(a);
if a>max then max:=a;
until (a=0);
writeln(max);
end.