Question

Помогите с программой на pascal. Использовать while. Я в 9-ом классе!

Answer 1

var a,k:integer;begink:=0;readln(a);
while a<>0 do
 begin
 k:=k+1;
 readln(a);
 end;
writeln('k = ',k);
end.

Пример:
2 8 5 7 0
k = 4

Answer 2

while a<>0 do
 begin
 k:=k+1;

 readln(a);
 end;
writeln('k = ',k);
end.
Пример:
2 8 6 7 0 
k = 4