Составьте программу определяющую Сколько раз в натуральном числе К встречается цифра равная последней. Паскаль АВС
Ответы
Ответ дал:
1
...
begin
readln(a);
c:=amod10;
a:=adiv10; k:=1;
while a>0 do begin
d:=amod10;
if d=c then inc(k);
a:=adiv10;
end;
writeln(k);
end.
begin
readln(a);
c:=amod10;
a:=adiv10; k:=1;
while a>0 do begin
d:=amod10;
if d=c then inc(k);
a:=adiv10;
end;
writeln(k);
end.
Вас заинтересует
6 месяцев назад
6 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад