1)
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
Writeln(n div 10 - n mod 10)
end.
2)
var
a:real;
begin
writeln('Площадь в ар.: ');
Read(a);
Writeln('Кв,км: ',Trunc(a/10000))
end.
Локальная сеть в институте или РосТелеком.
1 гб= 1024 мб
2 гб = 2048 мб
2048 \ 3 = 682, 6
ответ а)
321 в десятичной = 101000001 в двоичной