Pascal. вводим числа пока не 0. вывести в скольких из введённых чисел встретилась цифра 5. написал программу, но не могу найти ошибку program m; var a,a1,s: integer; begin readln(a); while(a< > 0)do begin a1: =(a mod 10); if (a1=5) then s: =s+1; a: =(a div 10); readln(a); end; writeln(s); end.
var a,a1,s:integer;
begin
readln(a);
while a<>0 do
begin
a1:=a;
while a1>0 do
begin
if (a1 mod 10=5) then
begin
s:=s+1;
a1:=0
end;
a1:=(a1 div 10)
end;
readln(a)
end;
writeln(s);
end.
begin
a := 1;
s := 0;
while(a <> 0) do
begin
readln(a);
a1 := a;
while(a1 > 0) do
begin
if(a1 mod 10 = 5) then
begin
s := s + 1;
a1 := 0;
end;
a1 := a1 div 10;
end;
end;
writeln(s)
end.