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.
Ответы на вопрос
Ответил elenaklon
0
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.
Ответил CzarAlex
0
"в скольких из введеных", ваша программа читает только одно число.
Ответил elenaklon
0
Разве? )
Ответил CzarAlex
0
begin, readln(), while() ???
Ответил elenaklon
0
И к чему это?
Ответил CzarAlex
0
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.
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.
Новые вопросы
Русский язык,
1 год назад
Алгебра,
7 лет назад