Предмет: Информатика,
автор: 228STALKER228
Даны стороны прямоугольника. Вычислить его периметр и площадь
Ответы
Автор ответа:
0
Program asd;
USES crt;
var p,s,c,a,b:real;
BEGIN
clrscr;
Writeln('Введите сторону À: ');
Readln(A);
Writeln('Введите сторону B: ');
Readln(B);
Writeln('Введите сторону C: ');
Readln(C);
P:=(a+b+c)/2;
S:=SQRT(p*(p*a)*(p*b)*(p*c));
Writeln('S:= ',s:2:2);
Writeln('P:= ',p);
END.
USES crt;
var p,s,c,a,b:real;
BEGIN
clrscr;
Writeln('Введите сторону À: ');
Readln(A);
Writeln('Введите сторону B: ');
Readln(B);
Writeln('Введите сторону C: ');
Readln(C);
P:=(a+b+c)/2;
S:=SQRT(p*(p*a)*(p*b)*(p*c));
Writeln('S:= ',s:2:2);
Writeln('P:= ',p);
END.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Русский язык,
автор: saltanatzuhar
Предмет: Химия,
автор: Аноним
Предмет: Обществознание,
автор: Аноним