var
a, b : real;
begin
read (a, b);
write (trunc (a * b));
end.
var
a : integer;
begin
read (a);
write (frac (a / 10));
end.
г)
var
a, b : real;
begin
read (a, b);
write (round (a + b));
end.
d)
var
a, b : integer;
begin
read (a, b);
write (a div b);
end.
e)
var
a : integer;
begin
read (a);
write (a div 1000);
end.
ж)
var
a : longint;
begin
read (a);
write (a div 24 + 1);
end.
з)
var
k : integer;
begin
read (k);
write (k div 7 + 1);
end.
и)
var
k : integer;
begin
read (k);
write (k div 60, ':', k mod 60);
end.
Делим на 524287 и получаем округленно 1.
Следовательно, адресоваться можно с точностью до 1 байта - это и есть размер машинного слова.
Адреса слов - от 0 до 524287 - всего 524288 слов.
ответ: 1 байт.