Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.
Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.
Гость
Ответ(ы) на вопрос:
ГостьVar
i,x:integer;
begin
i:=0;
while x<>0 do
begin
readln(x);
i:=i+1;
end;
writeln(i);
end.
Не нашли ответ?
Похожие вопросы