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

program exmp1

var C:char

begin

write

Real (A, B, C)

write

If a + b >c and b+c >a and a+c > b

then write ('существует.')

else write ('не существует'.)

end

Question

Информатика

Митюха

14 мая, 13:14

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

program exmp1

var C:char

begin

write

Real (A, B, C)

write

If a + b >c and b+c >a and a+c > b

then write ('существует.')

else write ('не существует'.)

end

+5

Ответы (1)

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

Галинуша · Answer 1

Var

a, b, c: real;

begin

read (a, b, c) ;

if (a + b > c) and (b + c > a) and (a + c > b)

then write ('существует.')

else write ('не существует.')

end.