Сколько раз данная цифра встречается в числе? паскаль авс. через while

176

384

Посмотреть ответы 3

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

Dashe444ki

Информатика

4,6(7 оценок)

Var a,s: integer; b: byte; begin writeln('введи число'); readln(a); writeln('введи цифру'); readln(b); s: =0; while a> 0 do begin if a mod 10 = b then s: =s+1; a: =a div 10 end; writeln(s) end.

kulaevasvetlan

Информатика

4,5(89 оценок)

Var a,b,k: integer; beginreadln(a,b); k: =0; while a> 0 do begin if a mod 10=b then k: =k+1; a: =a div 10; end; writeln(k); end.пример: 13534 32

svetskazka1978

Информатика

4,8(97 оценок)

Явам расскажу одну мне не рассказывала прабабушка что у неё был одноклассник он ломал компьютеры но потом этот мальчик исчез а потом в тот кабинет никто не заходил в кабинет информатики убрали разнесли потом потом построили другой кабинет информатики там этот мальчик больше туда не приходил и никто туда не входил даже учителя