Напишите программу в паскале, которая запрашивает у пользователя числа до тех пор, пока каждое следующее число больше предыдущего. в конце программа сообщает, сколько чисел было введено.
Dog7771
2
29.05.2019 12:50
6
Другие вопросы по теме Информатика
Denis99133
28.05.2019 20:30
СашаТарсюк
13.06.2019 20:40
mlyz
13.06.2019 20:40
eligi2345
28.09.2019 07:40
klimantovich72
06.09.2020 00:50
664565465
06.09.2020 00:52
yxhcycgc
13.04.2020 09:07
lolka143
13.04.2020 09:07
Khajiit999
25.08.2019 04:50
diiiaanf101
25.08.2019 04:50
Популярные вопросы
- 5 МИНУТ И МНОГО сделайте еди знаете 5 и ер о физике...
3 - 2. Как выглинт герой? Что можно отмети у него обре ? вакула...
3 - Сообщение Виды транспорта , диаграммы. 2020 или...
2 - Какие были последствия вторжения колонизаторов? 1. Положительные...
1 - АЙТЫЛЫМ 11-тапсырма. Жануарлардың атауын ертеде неге өзгерті айтқан?...
3 - Упр.219. ответьте письменно на вопросы...
2 - Разложить на множители1)4x^2-11x+6=02)x^2+6х-40=0...
3 - Английский Должна перевести...
1 - Светлая и темная сторона произведения Мальчик у Христа на елке...
3 - Task 2. Put the verbs in brackets into Past Simple or Present Perfect...
2
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.