вычеслить периметр и площадь квадрата если известна диоганаль

1

Ответы и объяснения

2014-02-26T16:54:47+04:00
Var 
    d, a, s, p:real;
begin 
    write ('Vvedite diagonal rvadrata: '); 
    readln(d); 
    writeln; 
    s := d * d / 2; 
    p := 4 * sqrt(s); 
    writeln ('s:=', s); 
    writeln ('p:=', p);
end.