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

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

Информатика

Марлеша

4 октября, 03:35

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

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.

+3

Ответы (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.