var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
end.
1) синоним к слову благо - польза.
2) устройство для прослушивания звука - наушники.
3) сенсорный переносной компьютер - планшет.
4) устройство для записи звука - диктофон.
бег - бог - рог - рок - рак - мак - маг - шаг
<u><em>Для стека:</em></u>
const
<span> MAX_SIZE = 100;
</span>var
size, n: integer;
stack: array[1..MAX_SIZE] of integer;
procedure push(a: integer);
begin
inc(size);
stack[size] := a;
<span>end;
procedure view;
var
i: integer;
begin
for i := 1 to size do
write(stack[i], ' ');
writeln;
end;
<u><em>Для очереди:</em></u>
const
MAX_SIZE = 100;
var
head, tail: integer;
queue: array[1..MAX_SIZE] of integer;
procedure push(a: integer);
begin
queue[tail] := a;
inc(tail);
<span>end;
procedure view;
var
i: integer;
begin
for i := head to tail - 1 do
write(queue[i], ' ');
writeln;
<span>end;
<em><u>И стек и очередь реализованы с помощью массива. Нужно следить, чтобы размер структуры не был больше размера массива</u></em></span></span></span>
Var
x,y:integer;
begin
writeln('Введите х и у');
readln(x,y);
if x>y then writeln(x,'>',y);
if x<y then writeln(x,'<',y);
if x=y then writeln(x,'=',y);
<span>end.</span>