ПЕРЕВЕДИТЕ С ПАСКАЛЯ НА КУМИР!
СРОЧНО!! Прошу!!
var
a, s: integer;
begin
s := 0;
read (a);
while a <> 0 do
begin
s := s + 1;
read(a);
end;
writeln(s);
end.
СРОЧНО!! Прошу!!
var
a, s: integer;
begin
s := 0;
read (a);
while a <> 0 do
begin
s := s + 1;
read(a);
end;
writeln(s);
end.
More Questions From This User See All
Answers & Comments
алг
нач
цел a, s
s:=0
ввод a
нц пока a<>0
s:=s+1
ввод(a)
кц
вывод(s)
кон
Если будут ошибки - прошу отписаться