1 слева к 6 справа
2 слева к 3 справа
3 слева к 1 справа
Var
mas: array[1..15] of integer;
i, v, q: integer;
begin
randomize;
q:=100;
mas[1]:=random(q);
for i:=2 to 15 do begin
repeat
v:=random(q);
if v<nas[i-1] then Inc(q, 20);
until v>mas[i-1];
end;
mas[i]:=v;
writeln('полученный массив');
for i:=1 to 14 do
write(mas[i],', ');
write(mas[15]);
end.
полученный массив
15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150
Var
a, b, c: integer;
begin
readln(a, b, c); //вводим a b c
if a > 0 then writeln(a*a) //если a > 0 вывести квадрат a
else
writeln(a); //иначе вывести a
if b > 0 then writeln(b*b) //если b > 0 вывести квадрат b
else
writeln(b); //иначе вывести b
if c > 0 then writeln(c*c) //если c > 0 вывести квадрат c
else
writeln(c); //иначе вывести c
<span>end.</span>
=> - это, видимо, операция "импликация"
Таблица истинности для нее:
a b a=>b
0 0 1
0 1 1
1 0 0
1 1 1
Теперь рассмотрим выражение: A=>(B=>A)
A B B=>A <span>A=>(B=>A)
0 0 1 1
0 1 0 1
1 0 1 1
1 1 1 1</span>
AB9 = <span>2745
Вот ответ </span>↑<span>
</span>Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все</span>