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
Треугольник построить нельзя
5+7=12
5 у первого
7 у второго
задача стара как мир
Program Pl_kruga;
uses
crt;
procedure SKr(L: real; var S: real);
var
R: real;
begin
R := L / 2 * Pi;
S := Pi * sqr(R);
end;
{ а это вызов }
var
L, S: real;
begin
Writeln('введи...');
Readln(L);
SKr(L, S);
Writeln(S:4:2)
end.
0011010001001010010110110101110
10101100001011100010100010101010
0010100100101011101001010
Срочно!!На завтра уже надо(9