Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / TREUG
.PAS PROGRAM treug;
var
a,b,c: real;
begin
{ ‚ў®¤ Ёб室ле ¤ ле }
write('ўўҐ¤ЁвҐ ¤«Ёл бв®а® ваҐгЈ®«мЁЄ ');
readln(a,b,c);
if ((a+b)<c) or ((a+c)<b) or ((b+c)<a)
then writeln('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Ґ бгйҐбвўгҐв')
else if (a=b) and (a=c)
then writeln('ваҐгЈ®«мЁЄ б ¤ л¬Ё ¤«Ё ¬Ё бв®а® - а ў®бв®а®Ё©')
else if (a=sqrt(sqr(b)+sqr(c))) or (b=sqrt(sqr(a)+sqr(c))) or (c=sqrt(sqr(a)+sqr(b)))
then writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Їаאַ㣮«мл©')
else if (a=b) or (b=c) or (c=a)
then writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® а ў®ЎҐ¤аҐл©')
else writeln ('ваҐгЈ®«мЁЄ Ё®©')
end.
var
a,b,c: real;
begin
{ ‚ў®¤ Ёб室ле ¤ ле }
write('ўўҐ¤ЁвҐ ¤«Ёл бв®а® ваҐгЈ®«мЁЄ ');
readln(a,b,c);
if ((a+b)<c) or ((a+c)<b) or ((b+c)<a)
then writeln('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Ґ бгйҐбвўгҐв')
else if (a=b) and (a=c)
then writeln('ваҐгЈ®«мЁЄ б ¤ л¬Ё ¤«Ё ¬Ё бв®а® - а ў®бв®а®Ё©')
else if (a=sqrt(sqr(b)+sqr(c))) or (b=sqrt(sqr(a)+sqr(c))) or (c=sqrt(sqr(a)+sqr(b)))
then writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® Їаאַ㣮«мл©')
else if (a=b) or (b=c) or (c=a)
then writeln ('ваҐгЈ®«мЁЄ б¤ л¬Ё ¤«Ё ¬Ё бв®а® а ў®ЎҐ¤аҐл©')
else writeln ('ваҐгЈ®«мЁЄ Ё®©')
end.
Соседние файлы в папке Alex