Помогите найти ошибку в записи программы. Перепишите программу в исправленном виде. 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...
Помогите найти ошибку в записи программы. Перепишите программу в исправленном виде.
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
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы