Напишите программу в Паскале, которая запрашивает у пользователя числа до тех…

Question

41

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

в избранное ссылка

Знаете ответ?

sanchos777 · Accepted Answer

48

sanchos777

06 марта 2023

Uses crt; var a,t,ans: integer; beginread (a); ans: =1; while true dobegint: =a; read (a); if a>t thenans: =ans+1elsebreak; end; writeln (ans); end.

комментировать

в избранное ссылка отблагодарить