Ответ:
var n,count:integer;begin repeat readln(n); if(n<>999) then inc(count); until(n=999); writeln(count); readln;end.
Источник znanija.site
Напишите программу, которая принимает с клавиатуры числа, пока не будет введено значение 999. Программа должна подсчитать, сколько значений было введено с клавиатуры (не считая значения 999) и вывести эту информацию на экран.
— Правильный ответ на вопрос найдете ниже
16.01.2020 · 1