Построить таблицу истинности логического выражения средствами электронной таблицы А∙(В

276

305

Посмотреть ответы 1

Ответы на вопрос:

Мика7477u

Информатика

4,5(4 оценок)

program zilly; uses crt; const n=10; var a,b,c: real; tup,pryam: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); tup: =0; pryam: =0; writeln('введите стороны треугольника'); write('а = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); a: =a*a; b: =b*b; c: =c*c; if a=b+c then pryam: =1; if b=a+c then pryam: =1; if c=a+b then pryam: =1; if a> b+c then tup: =1; if b> a+c then tup: =1; if c> a+b then tup: =1; if tup=1 then writeln('треугольник тупоугольный') else if pryam=1 then writeln('треугольник прямоугольный') else writeln('треугольник остроугольный'); end.