Var a,a1,a2,a3,a4,a5,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531
Только это не квадрат, с разными сторонами.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ "...\Отделы\Обмен\";
ПЕР
a, b: ЦЕЛ;
УКАЗ
a := 37;
b := 92;
Вывод.ЧЦел("%d^%d", a * b, a * 2 + b * 2, 0, 0)
КОН Задание.
1) Высчитаем количество пикселей в изображении.
128 * 128 = 16384 пикселя.
2) Узнаем информационный вес каждого пикселя.
Формула нахождения информации N = 2i (где N - количество цветов в палитре, i - количество информации в битах, которое несет каждый пиксель).
256 = 28
Один пиксель несет 8 бит информации.
3) Найдем информационный вес изображения.
16384 * 8 = 131072 бита
4) Переведем биты в байты. 1 Байт = 8 битам.
131072 : 8 = 16384 байта.
5) Переведем байты в Кбайты. 1 Кбайт = 1024 байт.
16384 : 1024 = 16 Кбайт.
Ответ: объем памяти нужен минимум 16 Кбайт.
A:\Документы\Сочинения\Литература.doc.
А:\Фото\Принтер.bmp
А:\Фото\Компьютер.bmp
2000 листов в замечательной книге