Напишите программу, которая принимает с клавиатуры - вопрос №1604438 от 01Таня10 09.12.2021 15:51

Question

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

01Таня10 · Answer

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