Вообще 1 Мегабайт равен 1000 Килобайт.
А вот 1 Мебибайт равен 1024 кибибайта.))
Ответ на фото. Таблица истинности составляется по формуле.
var
R,S:real;
begin
readln (R);
S:=3.14*R*R;
writeln (S);
end.
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>