1. 1)
2. 2)
3. 3)
4. количество пикселей на один дюйм (какой правильный не знаю)
5. 4)
6. количество пикселей по горизонтали и вертикали, количество бит на отображение пикселя (какой правильный не знаю)
7. 3)
8. 1)
9. 4)
10. 3)
Уравнение окружности радиуса R, центр которой совпадает с началом системы координат в декартовой системе координат имеет вид
x²+y²=R²
Для данного случая можно записать x²+y²=6² или x²+y²=36.
Заштрихованная область находится внутри окружности и при этом x>2, т.е. является сегментом круга, поэтому условие принадлежности некоторой точки M(x,y) сегменту запишется в виде (x²+y²<36) ∩ x>2.
Если границы сегмента также принадлежат заштрихованной области, неравенства меняются на нестрогие: (x²+y²≤36) ∩ x≥2.
<em>// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Write('Введите координаты x,y точки: ');
var (x,y):=ReadReal2;
Writeln((x*x+y*y<=36) and (x>=2))
end.
<u>Пример</u>
Введите координаты x,y точки: 3.5 4.8
True
Var n,a,b,c,d,i:integer;
begin
write('n = '); readln(n);
write('A и B: '); readln(a,b);
write('C и D: '); readln(c,d);
for i:=1 to a-1 do write(i,' ');
for i:=b downto a do write(i,' ');
for i:=b+1 to c-1 do write(i,' ');
for i:=d downto c do write(i,' ');
for i:=d+1 to n do write(i,' ');
end.
Пример:
n = 20
A и B: 5 10
C и D: 14 18
1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20
Var
d,m:integer;
begin
Readln(m);
readln(d);
if m>d then writeln('сюда вставить сообщение если мама старше папы')
else
if m<d then writeln('папа старше мамы') else
writeln('ровесники');
End.
P.S. Сообщения сам встань, мне не удобно с планшета.