Найдите ошибки в записи программы. Перепишите программу в исправленном виде.
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.
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.
Answers & Comments
var a,b,c: integer;
begin
write('Введите длины трех сторон треугольника: ');
read(A, B, C);
write('Треугольник со сторонами ', a, b:2, c:2);
if ((a + b) > c) and ((b + c) > a) and ((a + c) > b)
then write(' существует.')
else write(' не существует.');
end.