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.
Вадим - Футбол и физика.
Саша - Баскетбол и информатика.
Агата - Хоккей и математика.
Валя - Волейбол и химия.
Дополнительная память для телефона или для Пк
пусть во 2 корзине - х орехов, тогда в 1 корзине х + 38 орехов, в 3 х + 38 - 27
х + 38 + 54 = х + 38 + х
х + 38 + 54 - 38 -2х = 0
-х + 54 = 0
х = 54
х + 38 = 92
х + 38 - 27 = 65