Помогите с программой на pascal. Использовать while. Я в 9-ом классе!
Приложения:
Ответы на вопрос
Ответил petyaGavrikov
0
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
while a<>0 do
begin
k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
2 8 5 7 0
k = 4
Ответил nik4762
0
while a<>0 do
begin
k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
2 8 6 7 0
k = 4
Новые вопросы