Question

1.Дано целое
число А. Определить количество цифр в числе, которые больше 6.


2.Сумма в А
руб. лежит на расчетном счету. На сумму начисляется в% каждый год
прибыли. Прибыль со счета не снимается. Через сколько лет данная сумма
удвоится.

Answer 1

Program zz;
var n,x,a:integer;
begin 
readln(a); 
while a>0 do 
begin   
x:=a mod 10;   
if x<6 then n:=n+1;   
a:=a div 10; 
end; 
writeln(n);
end.