Напишите программу в Паскале, которая запрашивает у пользователя числа до тех пор, пока каждое следующее число больше предыдущего. В конце программа сообщает, сколько чисел было введено.
Напишите программу в Паскале, которая запрашивает у пользователя числа до тех пор, пока каждое следующее число больше предыдущего. В конце программа сообщает, сколько чисел было введено.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
number, prevNumber, count: Integer;
begin
count := 0;
prevNumber := -1;
repeat
Write′Введитечисло:′'Введите число: '′Введитечисло:′;
Readlnnumbernumbernumber;
if number > prevNumber then
begin
count := count + 1;
prevNumber := number;
end
else
Break;
until false;
Writeln′Количествовведенныхчисел:′,count'Количество введенных чисел: ', count′Количествовведенныхчисел:′,count;
end.