Pascal. вводим числа пока не 0. Вывести в скольких из введённых чисел встретилась цифра...

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.

Comments

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

---

Разве? )

---

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

---

И к чему это?

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.