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

желательно в Basic. но можно и паскаль

Question

Информатика

Тит

13 ноября, 04:01

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

желательно в Basic. но можно и паскаль

+5

Ответы (1)

Знаете ответ на вопрос?

Томила · Answer 1

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.