Объем книги = 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 метров
Задание №1:
program Program1;
var a, b, c, d, S1, S2: real;
begin
writeln('Введите значения a и b:');
readln(a, b);
S1 := a * b;
S2 := S1 / 6;
writeln('Введите значение c:');
readln(c);
d := S2 / c;
writeln('Вторая сторона второго прямоугольника = ', d);
end.
Задание №2:
1 итерация цикла: S = 3
2 итерация цикла: S = 21
3 итерация цикла: S = 81
Ответ: 81.
program raf105;
var m: integer;
begin
write('Введите номер месяца: ');
readln(m);
case m of
12,1,2: writeln('Это зима');
3..5: writeln('Это весна');
6..8: writeln('Это лето');
9..11: writeln('Это осень');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Верно, каждый знак=1 разряду двоичного (например) кода