СРОЧНО ПОЖАЛУЙСТА

+ 0 -

ZelenskayaD1998

19 февр. 2014 г., 7:32:19 (10 лет назад)

Program VadimLoh;
uses crt;
var
st1,st2,st3,S1,S2,S3,P1,P2,P3:integer;
begin
writeln('Введи сторону 1 квадрата');
Readln(st1);
writeln('Введи сторону 2 квадрата');
Readln(st2);

+ 0 -

д9а9ш9к9а

19 февр. 2014 г., 9:37:02 (10 лет назад)

Var
a, b, c : integer;               
 P1, p, s: real;
Begin               
Readln (a, b, c);               
 If a+b>c  then
p1: = a+b+c ;               
P:= (a+b+c)/2;               
S:=sqrt (p*(p-a)*(p-b)*(p-c));               
 Writeln ( ‘ p1= ‘ , p1:5:2) ;               
Writeln (‘ s=’,s:5:2);
End.

по формуле герон

+ 0 -

Fkfjkggngjg

19 февр. 2014 г., 12:24:08 (10 лет назад)

какую?

+ 0 -

Zorkovan

19 февр. 2014 г., 13:24:21 (10 лет назад)

процедура

+ 0 -

ThePac

19 февр. 2014 г., 16:09:05 (10 лет назад)

площадь первого квадрата =а*а периметр=4*а площадь второго квадрата равна b*b периметр= 4*b площадь третьего=c*c периметр=4*с

+ 0 -

Arsik15

19 февр. 2014 г., 17:46:24 (10 лет назад)

ща накалякаю на паскале

+ 0 -

СанекЛоЛ

19 февр. 2014 г., 18:21:26 (10 лет назад)

спасибо!)