Предмет: Информатика,
автор: mafi321
Написать программу определения максимального числа последовательности положительных чисел, вводимых с клавиатуры, до тех пор, пока не будет введён 0. (Циклом с предусловием в PascalABC), на фото программа с постусловием. А решить надо с предусловием.
Приложения:
Ответы
Автор ответа:
0
var x, max: integer;
begin
x:=-1;
max:=-1;
while x<>0 do
begin
readln(x);
if x=0
then break;
if x>max
then max:=x;
end;
if (max < 1)
then writeln('Нет чисел, удовлетворяющих условию')
else writeln ('Максимальное число: ', max);
end.
Интересные вопросы
Предмет: Химия,
автор: bifonbifon031
Предмет: Русский язык,
автор: 20nikolaj0610
Предмет: Математика,
автор: stanislavyrdexx
Предмет: Математика,
автор: himytramy
Предмет: Алгебра,
автор: sevostyanov71