1. Дано целое

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

2. Сумма в А

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

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

удвоится.

Question

Информатика

Камилка

11 мая, 15:58

1. Дано целое

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

2. Сумма в А

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

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

удвоится.

+5

Ответы (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.