profile
Опубликовано 6 лет назад по предмету Информатика от lisss19

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

  1. Ответ
    Ответ дан Darkevil1255

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

Самые новые вопросы