1-4. Задайте с предиката множество точек, соответствующее заштрихованной области на плоскости. 5. Введите предикат и запишите заданное высказывание, используя кванторы.

6. Запишите отрицание высказывания, записанного в п. 5, в словесной форме и с кванторов и введённого предиката.
Большие цифры-номера заданий
В четвертом, четвёрка закрывает знак =

1)
20480 * 40 = 819200 (Всего передано данных в битах за 40с)
819200 / 8 = 102400 (Перевели в байты)
102400 / 1024 = 100 (Перевели в кБайты)
ответ: 100 Кбайт

2)
64 / 8 * 1024 = 8192 (Скорость модема Байт/сек)
16 * 60 = 960 (переводим 16 минут в секунды)
8192 * 960 = 7864320 (Передано в байтах за 16 мин)
7864320 / 1024 / 1024 = 7,5
ответ: 7,5 Мбайт

3)70 / 8 * 1024 = 8960 (Скорость модема Байт/сек)
280 * 1024 = 286720 (Объем файла в байтах)
286720 / 8960 = 32
ответ: 32 секунды

4)6,25 * 1024 * 1024 = 6553600 (Объем данных в байтах)
6553600 * 8 = 52428800 (Объем в битах)
52428800 / 1024 / 1024 = 50
ответ: 50 Мбит/сек

//искать угол будем по теореме косинусов
Program n1;
var x,y,z:real;
function arccos(x : real) : real; {это понадобится для теор. кос.}
begin
arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));
end;
procedure ygl( a,b,c: real); {процедура для удобства}
var ga: real;
begin
ga:=arccos((sqr(a) + sqr(b) - sqr(c))/(2 * a* b)) * 180 / pi; {сама теор. кос.}
writeln('угол С= ',ga:5:2);
end;
begin
write('введите сторону а: ');
readln(x);
write('введите сторону b: ');
readln(y);
write('введите сторону c: ');
readln(z);
if(x>=y+z)or(y>=x+z)or(z>=x+y)then writeln('Это не треугольник')
else if x*x+y*y=z*z then {теорема пифагора}
writeln('Это прямоугольный треугольник')
else if (x*x+y*y>z*z)and(x*x+z*z>y*y)and(z*z+y*y>x*x)
then
begin
writeln('Это остроугольный треугольник');
ygl(x,y,z); {вызываем процедуру}
end
else
begin
writeln('Это тупоугольный треугольник');
ygl(x,y,z);
end;
end.