Ответы
Ответ дал:
0
Program kil;
Var a,b,p:real;
Begin
Writeln('a=');
Readln(a);
Writeln('b=');
Readln(b);
P:=2*(a+b);
Writeln('Периметр прямоугольника=',p);
End.
Var a,b,p:real;
Begin
Writeln('a=');
Readln(a);
Writeln('b=');
Readln(b);
P:=2*(a+b);
Writeln('Периметр прямоугольника=',p);
End.
Ответ дал:
0
а readln не нужен перед енд?
Ответ дал:
0
Нет,т к у тебя идёт оператор присваивания,и по хорошему программа подставит ответ расчёта
Вас заинтересует
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад