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 
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.