Ответ: 1010101
Если надо в двоичной
PROGRAM TREUG;
var a,b,c: integer;
begin
writeln ('Сторона 1=');
readln (a);
writeln ('Сторона 2=');
readln (b);
writeln ('Сторона 3=');
readln (c);
if ((a^2=b^2+c^2)or(b^2=a^2+c^2)or(c^2=a^2+b^2)) then
writeln ('треугольник прямоугольный');
else writeln ('треугольник не прямоугольный');
end.
Решение показано в прилагаемом файле.
В столбец A и в строку 2 нужно занести длины сторон от 1 до 10.
Значения периметра в остальных ячейках (начиная с B3) вычисляются по формуле вида: =2*($A3+B$2)
Формула записывается один раз, после чего её нужно скопировать (протяжкой) на все остальные ячейки диапазона B3:K12
Для вычисления площади все действия аналогичны. Формула: =$A3*B$2