Напишите программу, которая запрашивает числа с клавиатуры до тех пор, пока вводимое число не окажется меньше предыдущего...

Akari

Напишите программу, которая запрашивает числа с клавиатуры до тех пор, пока вводимое число не окажется меньше предыдущего или сумма чисел не станет кратной 3. цикл с предусловием и постусловием
2 ответа

Akari

С постусловием:
Var
x: Array[1..100] of Integer;
i: Integer;
s: Longint;
Begin
i:=100;
Repeat
Write('Введите число: ');
Readln(x[i]);
s:=s+x[i];
Until (s mod 3=0) or (x[i]<x[i-1]);
End.


Akari

спасибо за помощь)