даны длины сторон прямоугольника составить программу найти периметр и длину диагонали.
Pascal.
Ребята помогите пожеее.Заранее спасибо!!!
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
спасибо,надеюсь что правильно
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад