Сергей Самойленко
Помогите по pascal Дано: a-сторона квадрата Требуется P-? S-? d-?
d-диагональ
d-диагональ
P=4a
S=a^2
d=a корней из 2
Uses crt;
Var a, s, p, d:integer;
Begin
Clrscr;
Writeln(' vvedute ctorony kvadrata :');
Read(a);
p:=4*a;
s:=a*a;
d:=sqrt(2)*a;
Writeln('s=',s,' ',p=',p,' ','d=',d);
End.