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.
var
a, b: real;
begin
write('Введите a,b: ');
readln(a, b);
writeln('Гипотенуза = ', sqrt(sqr(a) + sqr(b)):0:2);
end.
При использовании алфавита из 32 символов на 1 символ необходимо использовать log(2)32 = 5 бит.
6400 байт = 6400*8 бит
Количество строк = 6400*8/(5*32*5) = 64
Var
V,r:real;
begin
readln(r);
V:=4/3*pi*r*r*r;
writeln(V);
end.