Даны длины сторон прямоугольника составить программу найти периметр и длину...

Question

Даны длины сторон прямоугольника составить программу найти периметр и длину диагонали.
Pascal.
Ребята помогите пожеее.Заранее спасибо!!!

Answer 1

Program sasaylalka;
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.

Comments

спасибо,надеюсь что правильно