Предмет: Информатика,
автор: Bristel
Напишите программу в Паскале, которая запрашивает у пользователя числа до тех пор, пока каждое следующее число больше предыдущего. В конце программа сообщает, сколько чисел было введено.
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: Djon66334
Предмет: Математика,
автор: Banok
Предмет: Математика,
автор: tanushkasaimetova
Предмет: Математика,
автор: lapki10
Предмет: Математика,
автор: Аноним