Question

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

Answer 1

Ответ: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.

Объяснение:

Answer 2

Ответ:

Объяснение:

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.