Найдите ошибки в программе (паскаль)

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 февраля, 00:03

Найдите ошибки в программе (паскаль)

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.

+5

Ответы (1)

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

Ольга · 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.