Предмет: Информатика,
автор: anonim63892835
Составьте программу, проверяющую, является ли последовательность чисел, вводимых с клавиатуры, возрастающей. Язык паскаль, цикл while
Ответы
Автор ответа:
1
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.
borwoll5:
При введение 0, цикл завершает свою работу
Интересные вопросы
Предмет: Английский язык,
автор: AndreiKitaev
Предмет: Українська література,
автор: hozyainova
Предмет: Русский язык,
автор: Andrey54Ivanov
Предмет: Математика,
автор: Woodymax
Предмет: Химия,
автор: 0935061024