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

Question

Мартимьян

3 октября, 12:44

+4

Ответы (1)

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

Логвин · Answer 1

var n, count:integer;

begin

repeat

readln (n);

if (n999) then inc (count);

until (n=999);

writeln (count);

readln;

end.