решить задачу в Паскале.
Program perim;

Uses crt;

Var a,b,c,d,p:real;

Begin

Writeln(‘Введите значения длин сторон трапеции a,b,c,d’);

Readln(a,b,c,d);

P:=a+b+c+d;

Writeln(‘периметр=’,p);

Writeln(‘для возврата в редактор нажмите любую клавишу’);

Repeat until keypressrd;

End.

shhfxecbhawc    2   27.03.2020 06:51    3