Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найдите ошибки в программе(паскаль)
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 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.