1.Дано целое число А. Определить количество цифр в числе, которые больше 6.2.Сумма в А руб. лежит на расчетном счету. На сумму начисляется в% каждый год прибыли. Прибыль со счета не снимается. Через сколько лет данная сумма удв...
1.Дано целое
число А. Определить количество цифр в числе, которые больше 6.
2.Сумма в А
руб. лежит на расчетном счету. На сумму начисляется в% каждый год
прибыли. Прибыль со счета не снимается. Через сколько лет данная сумма
удвоится.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы