- 18.09.2016 22:54
- Информатика
- remove_red_eye 17969
- thumb_up 28
Ответы и объяснения 1
Вот держи! Я даже сделал проверку что сторона не меньше нуля. Var a,b,c,p :real; Begin Write('Введите длинну стороны а >>> '); Readln(a); Write('Введите длинну стороны b >>> '); Readln(b); Write('Введите длинну стороны c >>> '); Readln(c); Writeln('--------------------------------------------------------------'); If (a>0) and (b>0) and (c>0) then Begin P:=a+b+c; Write('Периметр треугольника со сторонами ',a,' , ',b,' , ',c,' равен >>> ',p); End Else Begin Writeln('Ошибка!!!'); Write('Длинна сторон должна быть больше нуля'); End; End.
- 19.09.2016 15:15
- thumb_up 51
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.