program findpt;
var
a, b, c: integer;
begin
Write('Ввод a: '); Readln(a);
Write('Ввод b: '); Readln(b);
Write('Ввод c: '); Readln(c);
Writeln('Периметр треугольника равен: ', a + b + c);
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Даны три стороны треугольника, верно ли, что его периметр больше 10.Напишите праграмму в паскале
program findpt;
var
a, b, c: integer;
begin
Write('Ввод a: '); Readln(a);
Write('Ввод b: '); Readln(b);
Write('Ввод c: '); Readln(c);
Writeln('Периметр треугольника равен: ', a + b + c);
end.
Объяснение: