Ответ: Program N;var a,p,s:integer;c:real;Beginread(a);{вводим сторону квадрата}c:=a*sqrt(2); p:=4*a; s:=sqr(a); WriteLn( ‘диагональ ‘,c:5:2, ‘ периметр ‘,p, ‘ площадь ‘,s );end.
Источник znanija.site
Ответ: Program N;var a,p,s:integer;c:real;Beginread(a);{вводим сторону квадрата}c:=a*sqrt(2); p:=4*a; s:=sqr(a); WriteLn( ‘диагональ ‘,c:5:2, ‘ периметр ‘,p, ‘ площадь ‘,s );end.
Источник znanija.site