Вводить с клавиатуры числа, пока не будут введен 0. найти количество введенных чисел.

Question

Информатика: Вводить с клавиатуры числа, пока не будут введен 0. найти количество введенных чисел.

assel00031 · Answer

Vari,x:integer;begini:=0;while x 0 dobegin readln(x); i:=i+1;end;writeln(i);end....