1) <span>в) шестигранник
</span>2) в) латинскими буквами, специальными символами, арабскими цифрами
Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.
Var a,b,c:integer;begin readln(a); readln(b); readln(c); writeln((a+b+c)/3);end.
var
x: real;
begin
Write('Введите значение аргумента, не равное нулю: '); Readln(x);
if x = 0 then Writeln('Нулевой аргумент недопустим!')
else Writeln(sqr(x) * abs(1 - x) - 7 / (sqr(x) - 15))
end.
<u>Тестовое решение:</u>Введите значение аргумента, не равное нулю: 24.35
13844.7282626493
93.75 кб * 1024 * 8 - 768 000 бит
256 уровней громкости = 2^8 = 8 бит
24 кГц = 24 000 Гц
если моно, то 768 000 / 1 / 8 бит / 24 000 Гц = 4 секунды
если стерео, то 768 000 / 2 / 8 бит / 24 000 Гц = 2 сек
