// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
2304(10)=100100000000(2)
то есть переводим число из десятичной в двоичную
столбиком
делим каждый раз на 2
получившиеся чило делим на 2 до тех пор пока оно небудет равнятся 1
потом все остатки делений начиная с последный и заканчивая на 1 выписываем в один ряд
#include <iostream>
using namespace std;
void main(){
for(int i=100;i<=500;i+=50){
double km = i*1.068;
cout<<i<<" verst = "<<km<<" km"<<endl;
}
}
Program n;
uses crt;
var i:integer;
begin
for i:=-10 to 10 do writeln(i:4, abs(i):4);
<span>end. </span>