Составьте программу определяющую сколько раз в натуральном числе к встречается цифра равная последней. паскаль авс

CoolSansSkeleton CoolSansSkeleton    1   22.07.2019 17:20    3

Ответы
Brandy2005 Brandy2005  03.10.2020 10:59
...
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика