Ответы
Ответ дал:
0
Program Perimeter;
Var a,b,c,p: real;
Begin
Writeln('Введите 3 стороны через пробел: ');
Readln(a,b,c);
p:=a+b+c;
Write('периметр: ',p);
End.
Var a,b,c,p: real;
Begin
Writeln('Введите 3 стороны через пробел: ');
Readln(a,b,c);
p:=a+b+c;
Write('периметр: ',p);
End.
Похожие вопросы
2 года назад
2 года назад
8 лет назад