Найдите ошибки в записи программы. Перепишите программу в исправленном виде. program exmpl var C: real begin write ('Введите длины трех сторон треугольника:') read (A, B, C) write ('Периметр треугольника со сторонами ', а, b, c,'=',) S=A*B*Cend. end.
Найдите ошибки в записи программы. Перепишите программу в исправленном виде. program exmpl var C: real begin write ('Введите длины трех сторон треугольника:') read (A, B, C) write ('Периметр треугольника со сторонами ', а, b, c,'=',) S=A*B*Cend. end.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program exmpl;
var A,B,C,P: real;
begin
write ('Введите длины трех сторон треугольника:');
read (A, B, C);
P:=A+B+C;
write ('Периметр треугольника со сторонами ', а, ' ',b, ' ', c,'=',P);
end.