Дано натуральное число. определить, сколько раз - вопрос №4543192 от Іра022 09.01.2023 18:55

Question

Информатика: Дано натуральное число. определить, сколько раз в нем встречается цифра равная последней.

Іра022 · Answer

Var a,c,l,w1,w2,w3 : longint;begin  readln(a,c);  w1:=0;  w2:=0;  w3:=0;  l:=a mod 10;  while a 0 do  begin     if a mod 10=c then w1:=w1+1;     if a mod 10=l then w2:=w2+1;     if a mod 2=0 then w3:=w3+1;     a:=a div 10;  end;  writeln(w1, ,w2, ,w3);end....