Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel
C=A/B
C=26/2
C=13
Просто и легко
Var l:integer;
l1:real;
lm:integer;
begin
write('Введите расстояние в сантиметрах ');
read(l);
l1:=l/100;
lm:=trunc(l1);//округляет значение до близжайшего вычитая из него -0.5
writeln(lm,' метров');
<span>end.</span>
1) Высчитаем суммарное количество символов: 32*64*8=16384 (символа)
2) Высчитаем суммарное количество бит: 16*16384=262144 (бит)
3) Переводим биты в байты (1 байт = 8 бит): 262144/8=32768 (байт)
4) Переводим байты в килобайты (1 КБ = 1024 Б): 32768/1024=32 (килобайта)
Ответ: <u><em>32 КБ</em></u>
Предмет для вывода документа на бумагу называется Принтером