Регистрация
coolplayer1
27.02.2023 06:00
Информатика
Есть ответ 👍

Написать программу определения максимального числа последовательности положительных чисел, вводимых с клавиатуры, до тех пор, пока не будет введён 0. (циклом с предусловием в pascalabc), на фото программа с постусловием. а решить надо с предусловием.

159
338
Посмотреть ответы 2

Ответы на вопрос:

сорин8888
сорин8888
4,6(97 оценок)

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.

maryanazarfdFj
maryanazarfdFj
4,4(37 оценок)

2 size 3 redaction 4 brightness 5 transparent

Популярно: Информатика