Составьте программу, проверяющую, является ли последовательность чисел, вводимых с клавиатуры, возрастающей. Язык паскаль, цикл while
nikitasolyny
1
19.03.2020 22:42
3
Другие вопросы по теме Информатика
Denis8903
01.10.2019 21:30
mafobe66
01.10.2019 21:30
iraermila
01.10.2019 21:30
Аня4678
25.10.2020 19:56
YTMrBreadYT
25.10.2020 19:56
Yuliya0264
25.10.2020 19:56
eldos4
25.10.2020 19:45
Kamjla1
15.07.2019 20:30
vanila16
15.07.2019 20:40
Популярные вопросы
- Эпоха древнего мира это время появление первых планете...
3 - Человек и мир: впишите пропущенные слова, описывая значения облаков. 1) ? водяные...
2 - 7класс 1.представьте в виде степени: а) x*x6 *x86 (если что я пишу икс в 6 степени...
3 - Іть будь ласка відреагувати правильно слова: вістаючі студенти,завідучий кафедрою,прийняти...
1 - Однокоренные слова каменщик лётчик связист пианист...
1 - Фонетический разбор слов раз которые (из) тюрьмы...
3 - Мне нужно решить ривняння икс двадцать пятых плюс семнадцать двадцать равно один!...
3 - Несмотря на сильный дождь,было тепло. слово несмотря в данном случаи пишется слитно...
1 - Укажите реактивы, при которых можно распознать растворы кислот: hcl, h₂so₄, hno₃...
2 - Если f(x)=(1-2x)(2x+1), то найдите f (1)...
3
var n,t:integer;
b:boolean;
begin
b:=true;
readln(t);
while true do begin
readln(n);
if (n=0) then break;
if n>t then t:=n
else b:=false;
end;
if b then writeln('возростающая')
else writeln('не возростающая')
end.