Предмет: Информатика,
автор: arianatormoom
дана сторона квадрата .составьте программу для вычисления а)периметра б) длины диагонали в) площади квадрата
Ответы
Автор ответа:
0
Program N;
var a,p,s:integer;
c:real;
Begin
read(a);{вводим сторону квадрата}
c:=a*sqrt(2);
p:=4*a;
s:=sqr(a);
WriteLn( 'диагональ ',c:5:2, ' периметр ',p, ' площадь ',s );
end.
var a,p,s:integer;
c:real;
Begin
read(a);{вводим сторону квадрата}
c:=a*sqrt(2);
p:=4*a;
s:=sqr(a);
WriteLn( 'диагональ ',c:5:2, ' периметр ',p, ' площадь ',s );
end.
Похожие вопросы
Предмет: Физика,
автор: Jussius
Предмет: Математика,
автор: nurullina01
Предмет: Физика,
автор: ilusha175
Предмет: История,
автор: vitaliysimf