Question

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.

Answer 1

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.

Answer 2

Var a, a1, s: Integer;
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.