Предмет:
ИнформатикаАвтор:
sergiolaneАвтор:
benedictojamesАвтор:
juliusАвтор:
arellanoАвтор:
aldencabtvar 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.
Автор:
dummyАвтор:
cobwebДобавить свой ответ
Предмет:
МатематикаАвтор:
ainsleyircrОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
anisevvstОтветов:
Смотреть
Предмет:
ГеометрияАвтор:
lucianofr20Ответов:
Смотреть
Предмет:
ЛитератураАвтор:
spicylfzoОтветов:
Смотреть