Объем книги = 2048*256*128*1 байт = 2048*256*128 / 1024 Кбайт =
512*128 Кбайт = 512*128 / 1024 Мбайт = 64 Мбайт
750 Гбайт = 750*1024 Мбайт
а) Количество книг = 750*1024 / 64 = 12000
б) толщина стопки книг = 12000*0,06 м = 720 метров
Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
Боря из Омска
Витя из Москвы
Гриша из Санкт-Петербурга
Егор из Кирова
Думаю так
Program n1;
var a: real;
begin
write('введите мили: ');
readln(a);
writeln('это ',a*1.6 ,' километров');
end.