Предмет: Информатика,
автор: WraTh373
25 баллов.Вводится последовательность вещественных чисел. Признак конца ввода – 0. Определить является ли последовательность упорядоченной по убыванию.Паскаль
Ответы
Автор ответа:
0
я не буду писать полный код , ок?
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);
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);
Похожие вопросы
Предмет: Русский язык,
автор: Boriska039
Предмет: Математика,
автор: AnAsTaSiA5kLeInOsOvA
Предмет: Кыргыз тили,
автор: Аноним
Предмет: Литература,
автор: Лёля5Вероника