Найти сторону прямоугольника зная его периметр и одну сторону, записать задачу с решением на языки программирования Паскаль

2
это же просто
Комментарий удален
Сейчас сделаю

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

2013-12-25T11:09:00+00:00
Var p,a,b:real;
begin
writeln('ведите периметр');
readln(p);
writeln('введите 1 сторону');
readln(a);
b:=p/2*a;
writeln('2 сторона равна =', b);
end.
2013-12-25T11:15:22+00:00
Program asd;
USES crt;
var p,a,b:real;
BEGIN
clrscr;
writeln('Vvedite P: ');
readln(p);
Writeln('Vvedite storony: ');
readln(a);
b:=(p-2*a)/2;
writeln('Storona ravna B: ', abs(b));
END.