Var x, y: real;
begin
write('x = ');
read(x);
write('y = ');
read(y);
{1}
if (y >= x + 3) and (x <= 0) and (sqr(x + 1) + sqr(y - 2) <= sqr(2)) or
(x >= 0) and (y <= -x + 3) and (sqr(x + 1) + sqr(y - 2) <= sqr(2)) then
writeln('1: YES')
else
writeln('1: NO');
{2}
if (y <= 2) and (y >= 0) and (sqr(x - 3) + sqr(y) >= sqr(1)) or
(y <= 0) and (sqr(x - 3) + sqr(y) <= sqr(1)) then
writeln('2: YES')
else
writeln('2: NO');
{3}
if (y >= 0) and (y <= x + 1) and (y <= -x + 2) or
(y >= 0) and (y <= x - 2) then
writeln('3: YES')
else
writeln('3: NO');
{4}
if (sqr(x - 2) + sqr(y) >= sqr(1)) and (sqr(x - 2) + sqr(y) <= sqr(2)) and
((x - 2) * y >= 0) then
writeln('4: YES')
else
writeln('4: NO');
{5}
if (sqr(x) + sqr(y) <= sqr(2)) and ((y <= x - 2) or (y >= x + 2)) then
writeln('5: YES')
else
writeln('5: NO');
{6}
if (sqr(x - 2) + sqr(y - 2) >= sqr(1)) and (y <= x + 2) and
(y >= -x + 2) and (y >= x - 2) and (y <= -x + 6) then
writeln('6: YES')
else
writeln('6: NO');
{7}
if (y <= 2) and (y >= -2) and (sqr(x) + sqr(y) >= sqr(1)) and
(sqr(x - 2) + sqr(y) >= sqr(1)) and (sqr(x - 2) + sqr(y) >= sqr(1)) then
writeln('7: YES')
else
writeln('7: NO');
{8}
if (sqr(x - 2) + sqr(y) <= sqr(2)) and (sqr(x - 2) + sqr(y) >= sqr(1)) and
(sqr(x - 2) + sqr(y + 2) <= sqr(2)) then
writeln('8: YES')
else
writeln('8: NO');
{9}
if (y <= 3) and (y >= 0) and (y >= x) and (y >= -x + 3) or
(y <= 3) and (y >= 0) and (y <= x) and (y <= -x + 3) then
writeln('9: YES')
else
writeln('9: NO');
{10}
if ((sqr(x - 3) + sqr(y) <= sqr(2)) and (sqr(x - 3) + sqr(y) >= sqr(1)) or
(sqr(x - 3) + sqr(y) <= sqr(4)) and (sqr(x - 3) + sqr(y) >= sqr(3))) and
(y >= 0) then
writeln('10: YES')
else
writeln('10: NO');
{11}
if (y <= 2) and (y >= -2) and (x >= -2) and (x <= 2) and
(sqr(x - 2) + sqr(y - 2) >= sqr(1)) then
writeln('11: YES')
else
writeln('11: NO');
{12}
if (y <= 3) and (y >= 1) and (x >= 1) and (x <= 5) and
(sqr(x - 3) + sqr(y - 2) >= sqr(1)) then
writeln('12: YES')
else
writeln('12: NO');
{13}
if (y <= 0) and (y >= -3) and (x >= -1) and (x <= 1) or
(y <= x + 2) and (y <= -x + 2) and (y >= 0) then
writeln('13: YES')
else
writeln('13: NO');
<span>end.
Последние 3, я думаю, можно оставить Вам)</span>
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
1. логика - 3. Наука о формах и способах мышления
2. Высказывание - 9. Повествовательное предложение, вкотором что-либо утверждается или отрицается.
3. Алгебра логики - 8. Наука об операциях над высказываниями
4. Логическая константа - 5. ИСТИНА и ЛОЖЬ
5. Дизъюнкция - 2. Логическое сложение
6. Инверсия - 4. Логическое отрицание
7. Конъюнкция - 7. ^
8. Импликация - 1. А→В
9.Эквивалентность - 6. А ↔ В
Выясняем какое количество строк будет 2% от общего числа строк в каждой программе.
2% от 9000=180
Получается, что для каждого вируса он должен написать 180 строк кода.
На каждом компьютере 37 программ, каждая из которых состоит из 9000 строк кода. Выше мы выяснили сколько какое количество строк должен написать хакер для каждой из программ. А теперь выясним, какое количество строк он должен написать для всех программ на 1 компьютере, умножаем это количество на общее число вирусов, которых должен взломать хакер
180*37=6660
Далее, выясняем сколько вирусов должен написать хакер для всех компьютеров.
37*40=1480
Выясняем, общее число строк вирусного кода, которых должен написать хакер для всех программ на всех 40 компьютерах.
6660*40=266400
Ответ: 1)<span>1480 вирусов, 266400 строк кода</span>