Дана сторона квадрата a. Найти его периметр P = 4·a

Категория: Delphi/Pascal

2011-11-13 17:59:28

code: #pascal

Program Begin1;
Var
a:Real;
Begin
ReadLn(a);
WriteLn('P = ',4*a:6:3);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Sample Code