Обычное дело, сначала инициализировал массив.
Вывел его, потом обычным вложенным циклом проверил всё.
Думаю на счёт того как я проверял вопросов не будет.
Объясню, что же означает строка "if (neg&&a) break;"
Это значит, что если мы уже нашли негативное число и число равное А, то наш цикл прекращает работу ибо он уже нам не нужен.
Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.
Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>
Ответ:
A/\B=0
А\/В=0
Объяснение:
1 это конъюнкция (логическое умножение, и). Инстина только в одном случае когда истины одновременно два высказывания, в остальные случая ложь. Т.е. если A=0 и B=1 то A/\B=0
2 это дизъюнкция (логическое сложение). Истина когда истинно А, либо В, либо А и в одновременно. Т.е. если А=0 и В=0 то А\/В=0
Вторая:
Var
x:real;
Begin
Read(x);
if x<=0 then write('y = 0')
else if x<= 1 then write('y = ',x*x-x)
else write('y = ',x*x - sin(Pi*x*x -1))
End.
Третья:
Var
S1,S2:real;
Begin
Write('Площадь круга = ');Read(S1);
Write('Площадь квадрата = ');Read(S2);
S1:=sqrt(S1/Pi);
S2:=sqrt(S2);
if S1<=S2/2 then write('уместится')
else write('не уместится');
End.