Var n:longint;
function kol(n:integer):integer;
begin
if n<10
then kol:=1
else kol:=kol(n div 10)+1;
end;
begin
write('n = ');
readln(n);
writeln('k = ',kol(n));
end.
Пример:
<span>n = 15324
k = 5</span>
Ответ:
Объяснение:
1)A6.
2) Текстовая.
3)A1;B1;A2;B3;B4;A5;B5;A6.
4)A3;A4;B7.
5)A7.
Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
Здесь скорее всего будет две блок схемы: одна для main, другая для move
Рекурсия будет изображаться как вызов подпро
Если а>=х то хватит.
а если не хватит, то нужно добавить х-а рублей