Посчитать количество введенных чисел пока не будет введено 0

yanamosijchuk yanamosijchuk    1   10.09.2019 09:00    1

Ответы
kristinaлсп kristinaлсп  07.10.2020 04:59
Var
   count_num:integer;
   number:real;
begin
  count_num:=0;
  repeat
  readln(number);
  writeln('Введенное число: ',number);
  if (number <> 0) then Inc(count_num);
  until (number =0);
  writeln('Количество введеных чисел: ', count_num);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика