// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('S = ',Power(ReadReal('Введите сторону квадрата'),2))
end.
Var a,b,c:Integer;
Begin
Write('Введите длину 1 катета: '); Readln(a);
Write('Введите длину 2 катета: '); Readln(b);
Write('Введите длину гипотенузы: '); Readln(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if (sqr(c)=sqr(a)+sqr(b)) then
Writeln('Треугольник прямоугольный')
else
Writeln('Треугольник другого типа');
end
else
Writeln('Треугольник не существует');
END.
29. На узких полосках пальмовых листьев.
30. Чернилами из сажи.
31. В листьях делали отверстия и вставляли веревочки.
34. На египетскую.
35. Тысячи.
36. Красиво и грамотно.
Интернет игры документы данные