PASCAL Составьте программу, которая вычисляет периметр треугольника со сторонами a, b и c и выводит результат на экран
Answers & Comments
mdd2121
//PascalABC.NET //Версия 3.3, сборка 1611 begin var (a,b,c):=ReadReal3('Введите 3 стороны треугольника через пробел:'); write('периметр: P=',a+b+c); end.
Var a, b, c, p :longint; begin WriteLn('Введите a'); readLn(a); WriteLn('Введите b'); readLn(b); writeLn('Введите c'); readLn(c); p:=(a+b+c); writeLn('Периметр', p); end.
Answers & Comments
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3('Введите 3 стороны треугольника через пробел:');
write('периметр: P=',a+b+c);
end.
Verified answer
Var a, b, c, p :longint;begin
WriteLn('Введите a');
readLn(a);
WriteLn('Введите b');
readLn(b);
writeLn('Введите c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр', p);
end.