World Wibe Web - Всемирная паутина
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>
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u><u>Внимание! Если программа не работает, обновите версию!</u>begin
var (v1,v2,t):=(60,15,2);
Writeln('Расстояние равно ',(v1+v2)*t,' км')
end.
<u>Результат</u>Расстояние равно 150 км
Https://sch.com/table.xls
Ответ: Б, В, Г, А, Ж, Е, Д.