25 .вводится последовательность вещественных чисел. признак конца ввода – 0. определить является ли последовательность по убыванию.паскаль

malboro3 malboro3    2   07.07.2019 06:10    4

Ответы
Askas9999 Askas9999  30.07.2020 08:15
Я не буду писать полный код , ок? 
real n,m;
integer t;
t=0;
m:=-100000000000000;{крч. какое-нибудь дофига маленькое число}
while(n<>0)
begin
readln(n);
if m>=n then
begin 
t:=5; break;
end;
m:=n;
end;

if t=5 then writeln(yes); else writeln(no);
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика