Есть ответ 👍

Логика функциялардың қызметері қандай​

211
225
Посмотреть ответы 2

Ответы на вопрос:


Объяснение:

ааа ядра 3 аа Х её ППД залить ООО


Под а  program p1; var a,b , b1,a1,k: integer; begin  read(a); k: =1; b: =a mod 10; a1: =a div 10; while a1< > 0 do beginb1: =a1 mod 10;   if b1=b then  k: =k+1; a1: =a1 div 10; end; write(k); end.

Популярно: Информатика