Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
R = b⁵ = b¹⁺²⁺² = b² × b² × b; c = b² ⇒ R = b×c×c
Итак,
1) c = b×b (с - промежуточный результат)
2) c = c×c
3) R = b×c(R - окончательный результат)
1.Числовая
2.Видеоинформация
3.Органы чувств
4.Данные
5.Графическая
6.Компьютер
7.Информация
8.Слуховая
9.Информатика
10.Текстовая
300*300*32 бит = 300*300*32/8 байт = 360000 байт =
360000/1024 Кбайт ≈ 352 Кбайт