1. Дано целое

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

2. Сумма в А

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

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

удвоится.

Question

Ара

20 октября, 11:40

+4

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