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

Question

Информатика

Виктора

29 августа, 06:12

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

+4

Ответы (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.