Даны три стороны треугольника. Найдите его периметр. Составьте блок-схему и программу для паскаль.
Answers & Comments
Eiring
Program program1; var a, b, c, p: real; begin write('Введите длины сторон треугольника: '); readln(a, b, c); p := a + b + c; writeln('Периметр треугольника со сторонами ', a, ', ', b, ' и ', c, ' равен ', p); end.
Answers & Comments
var
a, b, c, p: real;
begin
write('Введите длины сторон треугольника: ');
readln(a, b, c);
p := a + b + c;
writeln('Периметр треугольника со сторонами ', a, ', ', b, ' и ', c, ' равен ', p);
end.