Дано три числа-стороны треугольника. Проверить будет ли треугольник равнобедренным. (Если две стороны равны,то треугольник равнобедренный)
Использовал оперативную память
a) F=A∧ ¬B∧C
b) F=¬A∨B∨C
c) F=X∨(¬Y∧(X∧Y))=X∨¬Y∧X∧Y=X∨¬Y∧Y=X
d) F=(X^X)v(X^¬Z)v(Z^X)v(Z^¬Z)^¬X=X^(X^¬Z)v(Z^X)^¬X=X^¬X^(X^¬Z)v(Z^X)=(X^¬Z)v(Z^X)
const N=30;
var a:array[1..N] of integer;
i, j, k, imax, kmax: integer;
begin
kmax:=0;
imax:=0;
for i:=1 to N do readln(a[i]);
k:=0;
for j:=1 to a[i] div 2 do if a[i] mod j =0 then inc(k);
if k>kmax then begin
kmax:=k;
imax:=i;
end;
end.
Var
a, b, i, j, found: integer;
begin
readln(a, b);
for i := a to b do
begin
found := 1;
for j := 2 to round(sqrt(i + 1)) do
begin
found := found * (i mod j);
if found = 0 then break;
end;
if found <> 0 then write(i, ' ');
end;
end.