Program P;
Var
a, n, i : Integer;
S : Integer;
Begin
S := 1;
Write('Enter a ');
ReadLn(a);
Write('Enter n ');
ReadLn(n);
for I:=1 to N do
S := S * a;
WriteLn('a ^ n = ', S);
ReadLn;
End.
Ну зависит от языка,в паскале - <span>read и readln и вывода write и writeln</span>
УСЛОВИЯ ПИСАТЬ НЕ СОБИРАЮСЬ, И ТАК МНОГО СПРОСИЛ.
1)16 = 2⁴, значит для 1 пикселя требуется 4 бита. Для всей картинки получим:
800*600*4=1920000 бит = 1920000 байт=1875 Кбайт
2)Ищем площадь поверхности картинки: 50,8*30,48=1548,384 потом переводим в дюймы, полученное количество дюймов умножаем на 100 и на 24. Полученный результат будет ответом
№1
1001101₂ = 1 * 2⁶ + 1 * 2³ + 1 * 2² + 1 * 2⁰ = 77₁₀
342₇ = 3 * 7² +4 * 7¹ + 2 * 7⁰ = 177₁₀
A26₁₆ = 10 * 16² + 2 * 16¹ + 6 * 16⁰ = 2598₁₀
№2
36₁₀ = 100100₂
197₁₀ = 305₈
681₁₀ = 2A9₁₆
№3
100100110101₂ = 2357₁₀ = 4465₈
1011011₂ = 91₁₀ = 133₈
№4
100110100101₂ = 2469₁₀ = 3A5₁₆
11001111011001₂ = 13273₁₀ = 33d9₁₆
№5
245₈ = 165₁₀ = 10100101₂
573₈ = 379₁₀ = 101111011₂
№6
1BA7₁₆ = 7079₁₀ = 1101110100111₂
ACF₁₆ = 2767₁₀ = 101011001111₂
№7
B68₁₆ = 2920₁₀ = 5550₈
FE9₁₆ = 4073₁₀ = 7751₈
№8
655₈ = 429₁₀ = 1AD₁₆
743₈ = 783₁₀ = 1E3₁₆
Var x1,y1,x2,y2:integer;
p1,p2:real;
b:boolean;
begin;
readln(x1);
readln(y1);
readln(x2);
readln(y2);
p1:=sqrt(sqr(x1)+sqr(y1));
p2:=sqrt(sqr(x2)+sqr(y2));
if p1>p2 then b:=true else b:=false;
writeln(b);
end.