Точка принадлежит прямоугольнику и треугольнику или прямоугольнику, но не кругу:
Б) С * НЕ(НЕ В * А)= С* В +С* неА
12.16..05
19.1316.03.01
17.18.01.03.10.13.16
Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
<span>end.</span>
var
a,b,c:integer;
begin
randomize;
a:=random(8);
c:=0;
repeat
writeln('Введи число: ');
if a<>b then
c:=c+1;
readln(b);
if b>a then
writeln('Загаданное число меньше ! ');
if b<a then
writeln('Загаданное число больше ! ');
if b=a then
writeln('Победа!');
until a=b;
writeln(c);
readln;
<span>end.</span>
Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>