Предмет: Информатика,
автор: thre1
Дана последовательность целых чисел. Прищнак окончания ввода- число 0(элементом последовательности не считается ). В последовательности как минимум одно число. Написать программу, определяющую, является ли последовательность чисел возрастающей. Если да програма должна вывести true, если нет- false.
Ответы
Автор ответа:
0
var a,b:integer; l:boolean;
begin
write('a = ');
readln(a);
l:=true;
while (a<>0) do
begin
b:=a;
write('a = ');
readln(a);
if (a<>0)and(a<=b) then l:=false;
end;
writeln(l);
end.
Пример 1:
a = 3
a = 6
a = 9
a = 4
a = 0
False
Пример 2:
a = 3
a = 6
a = 7
a = 0
True
begin
write('a = ');
readln(a);
l:=true;
while (a<>0) do
begin
b:=a;
write('a = ');
readln(a);
if (a<>0)and(a<=b) then l:=false;
end;
writeln(l);
end.
Пример 1:
a = 3
a = 6
a = 9
a = 4
a = 0
False
Пример 2:
a = 3
a = 6
a = 7
a = 0
True
Интересные вопросы
Предмет: Литература,
автор: bajelmamazakirov
Предмет: Алгебра,
автор: albedov
Предмет: Английский язык,
автор: daraa2467
Предмет: Химия,
автор: Alina78910