• Составить программу на паскале.Заданы длины сторон трех треугольников.Найти больший периметр.Для вычисления периметра треугольника используйте процедуру Perimetr,для определения большего из 2 чисел-процедура max

Ответы 1

  • Program prx;uses crt;Var a,d,c,k,d,g,o,f,v.perimetr1,perimetr2,perimetr3,max:byte;BeginWriteln ("Введи длины сторон трех треугольников");Readln (a,d,c,k,d,g,o,f,v);Perimetr1:=a+d+c;Perimetr2:=k+d+g;Perimetr3:=o+f+v;If perimetr1>perimetr2Then max:=perimetr1Else if perimetr2>perimetr3Then max:=perimetr2Else max:=perimetr3End;End;Writeln (max);Readln;End.
    • Автор:

      dangelo
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years