Var
x, y: real;
b: boolean;
begin
Write('Введите через пробел координаты X,Y: ');
Readln(x, y);
{ рис 21 }
if y < 0 then b := false
else
if x <= 0 then b := (sqr(x) + sqr(y) <= sqr(3))
else b := (y <= 3 - x / 2);
Writeln(b);
{ рис 23 }
if (y<0) or (sqr(x)+sqr(y)>sqr(6)) then b:=false
else
if x<=0 then b:=true
else b:=(sqr(x)+sqr(y)>=sqr(3));
Writeln(b)
end.
Тестовое решение:
Введите через пробел координаты X,Y: 3.4 2
False
True
<span>Задача №1 (( остальные по аналогии сделай ))
const n=3;var a:array[1..n,1..n] of integer; {Ввод массива N на N} i, j, sum: integer; {Ввод переменных}begin sum := 0; begin for i:= 1 to n do for j:= 1 to n do read(a[i,j]) end; for i:= 1 to n do begin for j:= 1 to n do if a[i,j] > 0 then sum:=sum + a[i,j] end; write('сумма = ', sum);end.</span>
1)
var a,q:integer;
begin
a:=1;
while a<>0 do begin
read(a);
if a<0 then inc(q);
end;
writeln('Количество отрицательный чисел: ',q);
end.
2)
var d,m,g,h,min:integer;
begin
d:=random(31)+1;
m:=random(12)+1;
g:=random(11)+2000;
h:=random(24);
min:=random(60);
writeln(<span>d,'/',m,'/',g,' ',h,':',min);
end.
3)
var a:array[1..10] of integer;n,i:integer;
begin
for i:=1 to 10 do
a[i]:=random(6)+2;
read(n);
</span>for i:=1 to 10 do
writeln(a[i]);<span>
for i:=9 downto n do
a[i+1]:=a[i];
a[n]:=0;
for i:=1 to 10 do
writeln(a[i]);
end;</span>
78=П - 01001110 О - 01001110 Д - 01001110
-40=П - 10101000 О - 11010111 Д - 11011000<span>
Ответ - 00100110(2)=38(10)
</span>
