Напишите программу, которая принимает с клавиатуры числа, пока не будет введено…

Question

57

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

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

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

oxiver · Accepted Answer

35

oxiver

29 марта 2023

var n,count: integer; begin repeat readln (n); if (n<>999) then inc (count); until (n=999); writeln (count); readln; end.

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

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