Var
a,p,s:real;
begin
Write('Введите площадь квадрата: ');
Readln(s);
a:=sqrt(s);
p:=4*a;
Writeln('Периметр квадрата равен ',p)
end.
Тестовое решение:
Введите площадь квадрата: 13.7
Периметр квадрата равен 14.8054044186574
Для кодирования одного символа в кодировке ASCII используется 8 бит, в кодировке Unicode - 16 бит (хотя это зависит от того, что кодируется). Следовательно, искомый объем сообщения = 2^13 * 2 = 2^14
//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква