Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Напишите пожалуйста, программу для нахождения периметра, площади и диагонали квадрата со стороной а. На паскале, срочно очень нужно!

Ответ оставил Гость

Uses Crt;
Var s,s1,s2,a:longint;
begin 
clrscr;
 readln(a)
; s:=a*4; s1:=a*a; s2:=abs(2)*a; 
writeln(s, ,s1, ,s2);
End.