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

Question

Информатика

Аннечка

22 марта, 19:55

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

+3

Ответы (1)

Знаете ответ на вопрос?

Федяша · Answer 1

Uses crt;

var a, t, ans:integer;

begin

read (a) ;

ans:=1;

while true do

begin

t:=a;

read (a) ;

if a>t then

ans:=ans+1

else

break;

end;

writeln (ans) ;

end.