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

Question

Информатика

Инесса

9 января, 04:01

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

+1

Ответы (1)

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

Настасия · Answer 1

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.