Известны ширина и длина прямоугольника. сторона квадрата в два раза меньше длины прямоугольника. найти периметры квадрата и прямоугольника

Program perimetr; var a,b: integer; n: real; begin readln(a,b); n: =b/2; writeln('периметр квадрата= ',4*n); writeln('периметр прямоугольника= ',2*a+2*b); end.

//pascalabc.net 3.2 сборка 1318 var   s1,s2,c: string;   i: integer; begin write('type s1: '); readln(s1); write('type s2: '); readln(s2); if length(s1)> length(s2) then   begin     for i: =1 to length(s1) do       if (s1[i]> ='0') and (s1[i]< ='9') then write(s1[i]);     writeln;     for i: =1 to length(s2) do       if ord(s2[i])> 70 then write(s2[i]);   end else   begin     for i: =1 to length(s1) do       if ord(s1[i])> 70 then write(s1[i]);     writeln;     for i: =1 to length(s2) do       if (s2[i]> ='0') and (s2[i]< ='9') then write(s2[i]);   end; end. пример ввода: type s1: mi zu type s2: mel10n пример вывода: mizu 10

будем считать, что каждое четное однозначное число это определенный алфавит, мощность которого обозначается буквой n

n=2^i, подставим вместо n 2, получаем 2=2^i запишем левую часть как степень числа 2: 2^1=2^i, отсюда i=1 бит

подставим теперь вместо n 4, получаем 4=2^i запишем левую часть как степень числа 2: 2^2=2^i, отсюда i=2 бит

подставим теперь вместо n 6, получаем 6=2^i число 6 не является точной степенью числа 2, поэтому ответ найдем по таблице неточных степеней числа 2-   i=2,58 бит

подставим теперь вместо n 8, получаем 8=2^i запишем левую часть как степень числа 2: 2^3=2^i, отсюда i=3 бит

запишем условие: мощность компьютерного алфавита равна n=256

i=120 бит, к-?

решение: найдем вес одного символа 256=2^i, i=8 бит

разделим i на i и получим кол-во символов в тексте 120/8=15