ИНФОРМАТИКА 8 КЛАСС!
Написать программу для решения задачи:
Даны длины сторон прямоугольника. Найти его периметр и длину диагонали.

ответ:program ytro;

var a,b:integer;

P,d:real;

begin

writeln('Введи стороны');

readln(a,b);

P:=2*(a+b);

writeln('Периметр равен ',P);

d:=sqrt(sqr(a)+sqr(b));

writeln('Диагональ равна ',d);

readln;

end.

Объяснение:

Объяснение:

program ytro;

var a,b:integer;

P,d:real;

begin

writeln('Введи стороны');

readln(a,b);

P:=2*(a+b);

writeln('Периметр равен ',P);

d:=sqrt(sqr(a)+sqr(b));

writeln('Диагональ равна ',d);

readln;

end.