Дано натуральное число. Определить: 1) Определить количество повторений заданной…

Question

60

Дано натуральное число. Определить: 1) Определить количество повторений заданной цифры в нем 2) Сколько раз в нем встречается цифра, равная последней 3) Количество четных цифр в нем.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

shower · Accepted Answer

97

shower

13 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: