Var a,b,c : real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a)
then writeln('Треугольник построить можно')
else writeln('Треугольник построить нельзя');
end.
Пример 1:
a = 3
b = 4
c = 5
Треугольник построить можно
Пример 2:
a = 3
b = 5
c = 9
Треугольник построить нельзя
Const
LIM=2; W=8; D=2; n=5; m=5; { n строк, m столбцов }
var
a: array [1..n,1..m] of real;
p: real;
h: boolean;
i, j: integer;
begin
Randomize;
WriteLn('A=');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=LIM*Random;
Write(a[i,j]:W:D);
end; WriteLn;
end;
WriteLn('B=');
for i:=1 to n do begin
p:=1; h:=false;
for j:=1 to m do
if (abs(a[i,j])>=1) and (abs(a[i,j])<=1.5) then begin
p:=p*sqr(a[i,j]); h:=true;
end;
if h then Write(p:W:D) else Write('?':W);
end; WriteLn;
Write('Нажмите ENTER...'); ReadLn;
end.
Понедельник 1-5
вторник 2-6
среда 3-7
четверг 4-6
пятница 5-5
A12, так как в только в ней нет знака абсолютной адресации($)