Первое слово флаг. палец указывает первую букву заменить на П, значит плаг. Следующая буква И, значит плаги. Затем идёт перевернутый танк, т.е. кнат. две запятые перед ним призывают выкинуть две первые буквы. остается ат. соединим вместе: плагиат. это решение ребуса.
Uses crt;
var a,p:integer;b,s:real;
begin
writeln ('введите периметр',p);
readln (p);
writeln ('введите длину',a);
readln (a);
b:=((2*a-p)/-2);
s:=a*b;
writeln (s);
End.
Var s,r:real;
begin
writeln('Введите радиус: ');
readln(r);
s:=sqr(r)*(4-Pi)/2;
writeln('Ответ: ',s);
<span>end.</span>
Содержание:
<span>1. </span>История развития систем счисления. 2
<span>2. </span>Двоичные системы счисления<span> </span>6
<span>3. </span>Двоичная арифметика<span> </span>10
<span>4. </span>Формы представления чисел с<span> фиксированной и плавающей запятой.</span><span> </span>13
<span>5. </span>Сложение чисел с фиксированной запятой.<span> </span> 16
<span>6. </span>Сложение чисел с плавающей запятой.<span> </span>16
<span>7. </span>Умножение чисел с фиксированной запятой.<span> </span>17
<span>8. </span>Умножение чисел с плавающей запятой.<span> </span> 18
9.<span> </span>Прямой, обратный и дополнительный коды. Модифицированный код.<span> </span>20
const
pi=3.14159265358979;
var
a,b,c:integer;
cos1,cos2,cos3:real;
begin
repeat
write ('A = ');readln(a);
write ('B = ');readln(b);
write ('C = ');readln(c);
if (a+b<=c) or (a+c<=b) or (b+c<=a) then writeln ('The triangle doesnt exist');
until (a+b>c) and (a+c>b) and (b+c>a);
cos1:=((a*a+b*b-c*c)/(2*a*b))*180/pi;
cos2:=((a*a+c*c-b*b)/(2*a*c))*180/pi;
cos3:=((b*b+c*c-a*a)/(2*b*c))*180/pi;
if (cos1=0) or (cos2=0) or (cos3=0) then writeln ('Прямоугольный') else
if (cos1<0) or (cos2<0) or (cos3<0) then writeln ('Тупоугольный') else
writeln ('Остроугольный');
readln;
end.