Войти Регистрация Спроси ai-bota

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

Ответ:

andrognew2018

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);

0,0(0 оценок)

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

elena1234569

04.03.2021 23:08

HTML-страница, с которой начинается работа браузера при его включении, — это: Выберите один ответ: a. доменное имя b. URL c. домашняя страница d.IP-адрес...

vikshaaa

25.01.2020 06:38

1. Для кодирования одного пикселя используется 2 байта. Фотографию размером 1024´1024 пикселей сохранили в виде несжатого файла. Определите размер получившегося файла в килобайтах...

Микаэла111

11.06.2022 18:10

За к поисковому серверу закодированы буквами Л, Б, В, Г. Расположите обозначения за в порядке возрастания количества страниц, которые найдёт поисковый сервер по каждому за А) Пушкин...

blackytwhite

15.09.2021 15:23

1. виды монитора 2. клавиша переключение режим работы, правой дополнительной части клавиатура 3. манипулятор мыши- это 4. трек бол- это 5. большая интегральная схема представляет...

luizazamanov

20.05.2022 20:54

Назовите исполнителей следующих видов работ: 1) печатание документа на принтере...

Школяяяра

15.05.2020 22:16

Практическая работа Необходимо спроектировать, протестировать и разработать систему, соответствующую ниже описанному сценарию. Любая написанная программа должна включать подсказку...

solomia113

18.02.2022 20:03

Умышленно совершаемое физическим лицом незаконное присвоение или использование чужого произведения...

ДанилКаДми

20.03.2020 06:43

Задача. Сумма 8000 рублей положена в сберегательный банк, при этом прирост составляет 4% годовых. Напишите на языке Паскаль программу, определяющую, какая сумма будет на счете через...

dartwaoder20hdhxgs

20.03.2020 06:43

В программе «:=» обозначает оператор присваивания, знаки «+», «–», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций и порядок...

RK2890

24.02.2023 22:12

Дана программа: var s, t: integer; begin readln(s); readln(t); if (s 6) and (s 2 * t) then written( YES ) else writeln ( NO ); end. Было проведено 9 запусков этой программы, при которых...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку