1. Дано целое

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

2. Сумма в А

руб. лежит на расчетном счету. На сумму начисляется в% каждый год

прибыли. Прибыль со счета не снимается. Через сколько лет данная сумма

удвоится.

Question

Информатика

Марьюшка

31 декабря, 02:55

1. Дано целое

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

2. Сумма в А

руб. лежит на расчетном счету. На сумму начисляется в% каждый год

прибыли. Прибыль со счета не снимается. Через сколько лет данная сумма

удвоится.

+1

Ответы (1)

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

Артеша · 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.