Question

Перепишите строки программы так что-бы получилась программа для вычисления периметра треугольрика по трём вредным длина сторон. writeln('Периметр равен', P); writeln('Введите три числа>>'); begin P:=a+b+c; read(a,b,c); var a, b,c, P: integer; Program Perim; end.

Answer 1

Program Perim;

var a, b,c, P: integer;

begin

writeln('Введите три числа>>');

read(a,b,c);

P:=a+b+c;

writeln('Периметр равен', P);

end.

Answer 2

Program perim;

var a,b,c,P : integer;

begin

wrteln('Введите три числа: ');

read(a,b,c);

p := a + b + c;

writeln('Периметр равен', P);

end.

Answer 3

Program Perim; var a, b, c, P: integer; begin writeln('Введите три числа: '); readln(a, b, c); P := a + b + c; writeln('Периметр равен ', P); end.