Напишите программу, которая принимает с клавиатуры числа, пока не будет введено значение 999. Программа должна подсчитать, сколько значений было введено с клавиатуры (не считая значения 999) и вывести эту информацию на экран.

Question

Федосей

30 января, 02:49

+3

Ответы (1)

Знаете ответ на вопрос?

Вивиана · Answer 1

var n, count:integer;

begin

repeat

readln (n) ;

if (n999) then inc (count) ;

until (n=999) ;

writeln (count) ;

readln;

end.