var a,b,c,z:integer;
begin
readln(a, b, c);
z:=0;
if (a > b) and (a > c) then begin
z:= b+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (b > a) and (b > c) then begin
z:= a+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (c > a) and (c > b) then begin
z:= b+a;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник')
end
else if (a = b) and (a = c) then
write('Это равностороний треугольник')
else write('Это равнобедренный треугольник');
end.
Объяснение:
for var i:=100 to 999 do
if (i mod 31 = 25) then write(i+', ');
end.
118, 149, 180, 211, 242, 273, 304, 335, 366, 397, 428, 459, 490, 521, 552, 583, 614, 645, 676, 707, 738, 769, 800, 831, 862, 893, 924, 955, 986