написать код на Pascal. Треугольник называется равносторонним, если по крайней мере две из трех его сторон имеют одинаковую длину. Подсчитайте количество прямоугольных треугольников, стороны которых являются целыми числами от 1 до N, помня, что длина каждой стороны треугольника меньше суммы длин двух других сторон.
Const n=5; m=6; var a:array[1..n,1..m] of integer; i,j,k,max:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; max:=0; for i:=1 to n do begin k:=0; for j:=1 to m do if a[i,j] mod 5=0 then k:=k+1; writeln(i,': ',k); if k>max then max:=k; end; writeln('max = ',max); end.
Const n = 3; k = 3; var i,j,s1,s2:integer; a:array[1..n,1..k] of integer; begin s1:=0; s2:=0; for i:=1 to n do for j:=1 to k do begin Writeln('Введите a[',i,',',j,']:'); readln(a[i,j]); if (a[i,j]>0) and (i<>j) then s1:=s1+a[i,j]; if (a[i,j]<0) and (i<>j) then s2:=s2+a[i,j]; end; if s1>s2 then for j:=1 to k do begin a[1,j]:=s1; a[n,j]:=s1; end; if s2>=s1 then for i:=1 to n do begin a[i,1]:=s2; a[i,k]:=s2; end; writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; end.
program z1;
var n,a,b,c,k: integer;
begin
k:=0;
read(n);
for a:=1 to n do
for b:=1 to a do
for c:=1 to b do
if ((a=b) or (b=c) or (c=a)) and (a < b+c) and (b < a+c) and (c < b+a) then k:=k+1;
write (k)
end.
Объяснение:
(a=b) or (b=c) or (c=a) - любые две стороны равны
(a < b+c) and (b < a+c) and (c < b+a) - длина каждой стороны меньше суммы двух других сторон