Найдите ошибки в записи программы. Перепишите программу в исправленном виде.

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.

Question

Информатика

Афросинья

30 мая, 08:19

Найдите ошибки в записи программы. Перепишите программу в исправленном виде.

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.

+1

Ответы (1)

Знаете ответ на вопрос?

Захар · Answer 1

Program exmpl;

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.