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.

"в скольких из введеных", ваша программа читает только одно число.

Разве? )

begin, readln(), while() ???

И к чему это?

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.

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.