Question

Найдите ошибки в программе(паскаль) program exmpl var c: char begin write (‘введите длины трех сторон треугольника: ’) read (a, b, c) write (‘треугольник со сторонами ’, a, b, c) if a + b > c and b + c > a and a + c > b then write (‘существует.’) else write (‘не существует.’) end.

Answer 1

Program exmpl;
var a,b,c:integer;
begin
writeln ('Введите длины трех сторон треугольника: ');
read (A, B, C);
write ('Треугольник со сторонами ', a:3, b:3, c:3);
if (a + b > c) and (b + c > a) and (a + c > b)
then write (' существует.')
else write (' не существует.');
end.