41

Даны числа a,b,c. Составить программу, выводящую на экран сообщение, в зависимости…

03 марта 2023

Даны числа a,b,c. Составить программу, выводящую на экран сообщение, в зависимости от того какой треугольник можно построить с такими длина сторон: равносторонний, равнобедренный или какой либо другой.

категория: информатика

70

ПерваяProgram n1; Uses CRT; Var a,b,c,k: integer; beginWriteln ('Vvedite a,b,c'); Readln (a,b,c); If (a=b) and (b=c) then begin k: =1; writeln ('Ravnostoronnij') end elseIf (a=b) or (b=c) or (a=c) then begin k: =1; writeln ('Ravnobedrennij'); end; If (sqr (a)=sqr (b)+sqr (c) or (sqr (b)=sqr (a)+sqr (c) or (sqr (c)=sqr (b)+sqr (a) then begin k: =1; writeln ('Pryamoygolnij'); end; If (a>b+c) or (b>a+c) or (c>a+b) then begin k: =1; writeln ('treygolnik nelza sostavit'); end; If k=0 then writeln ('Treygolnik Raznostoronnij'); readlnend. Вторая Program n1; Uses CRT; Var a,b,c: integer; beginClrScr; Writeln ('Vvedite a,b,c'); Readln (a,b,c); If (a>0) and (b>0) and (c>0) then writeln ('Summa kvadratov=',sqr (a)+sqr (b)+sqr (b); If (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln ('Summa=',a+b+c,', Proizvedenie=',a*b*c); readlnend.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...