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

Question

Информатика

Паллада

12 марта, 20:04

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

+3

Ответы (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.