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.
Написал программу, но не могу найти ошибку
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.
More Questions From This User See All
Answers & Comments
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.