33 символа (16+16+"0") - 6 битный алфавит
6 * 512 = 3072 бита.
Ответ : 3072 бита.
{ Если в Вашей версии система "ругается" на sign, раскомментируйте
текст определения этой функции. В противном случае удалите все комментарии }
{
function sign(x:real):integer;
begin
if x<0 then sign:=-1
else
if x>0 then sign:=1 else sign:=0
end;
}
var
x1,x2,y1,y2:real;
begin;
Write('Введите через пробел координаты точки 1: ');
Read(x1,y1);
Write('Введите через пробел координаты точки 2: ');
Read(x2,y2);
if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2))
then Writeln('Точки находятся в одной четверти')
else Writeln('Точки находятся в разных четвертях')
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел координаты точки 1: -3.5 8.1
Введите через пробел координаты точки 2: -5 4
Точки находятся в одной четверти
Ответ:
Объяснение:
1. - вторая сторона прямоугольника.
2. - формула периметра прямоугольника.
===== PascalABC.NET =====
begin
var a := 1.7 * (4.9 - 7.23 / 4.8) + 3.4;
var b := 1.2314 + 8.85 ** 5;
var c := 0.00354 / (347 + 526.71) * 0.21;
PrintLn(a, b, c)
end.
Результаты:
9.169375 54290.7953553125 8.50854402490529E-07