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

Написал программу, но не могу найти ошибку

program m;

var a, a1, s:integer;

begin

readln (a) ;

while (a0) do

begin

a1: = (a mod 10) ;

if (a1=5) then

s:=s+1;

a: = (a div 10) ;

readln (a) ;

end;

writeln (s) ;

end.

Question

Информатика

Франгиза

18 августа, 21:44

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

Написал программу, но не могу найти ошибку

program m;

var a, a1, s:integer;

begin

readln (a) ;

while (a0) do

begin

a1: = (a mod 10) ;

if (a1=5) then

s:=s+1;

a: = (a div 10) ;

readln (a) ;

end;

writeln (s) ;

end.

+5

Ответы (2)

Знаете ответ на вопрос?

Хочбар · Answer 1

var a, a1, s:integer;

begin

readln (a) ;

while a0 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.