Var
a,b,c:real;
begin
Writeln('Введите стороны треугольника');
Readln(a,b,c);
Writeln('P =',a + b +c);
end.
<u>Пример:</u>
Введите стороны треугольника
1 2 3
P =6
<span>Были когда-то такие вот стихи: -Дальше будет нам видней: двадцать лет не двадцать дней! Этим всё сказано.</span>
3-х литровым кувшином наполняем кувшин 8 л. После 3-го наполнения в
<span>3-х литровом кувшине останется 1 литр. Затем опорожняем 8 литровый кувшин, с 3-х литрового кувшина переливаем один литр в 8-литровый, и туда -же наливаем два раза по 3 литра - получаем 7 л. </span>
Нажми там будет объведи и поделись с кем нибудь но это не точно если я не обишаюсь но у меня так