<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 км
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;
728 в9с.с. = 7*9^2+2*9+8= 593 в 10с.с.
Var a,k,n,m:integer;
begin
writeln('Введите число');
readln(a);
m:=a; k:=0; n:=0;
while a<>0 do begin
if a mod 10=2 then k:=k+1
else if a mod 10=0 then n:=n+1;
a:=a div 10;
end;
writeln('В числе ',m,' ',k,' двоек и ',n,' нулей');
readln
end.
Материнская плата, центральный процессор, оперативная память, блок питания, жесткий диск, видеокарта, CD/DVD привод.