program vlad971997; uses crt; var a,b,c: real; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); write('введите a '); readln(a); write('введите b '); readln(b); write('введите c '); readln(c); if (a> =b+c) or (b> =a+c) or (a> =b+c) then writeln('ответ "0": со сторонами a,b,c нельзя построить треугольник') else if (a=b)and (b=c) and (a=c) then writeln('ответ "3": со сторонами a,b,c можно построить равносторонний треугольник') else if (a< > b)and (b< > c) and (a< > c) then writeln('ответ "1": со сторонами a,b,c можно построить другой треугольник') else writeln('ответ "2": со сторонами a,b,c можно построить равнобедренный треугольник')end.
проверено - работает на паскаль авс
программа проверена - работает на паскаль авс. блок-схема - во вложенииprogram krisinaaa72; uses crt; const n=9; var e: array[1..n] of integer; min, nom,i: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); randomize; for i: =1 to n do e[i]: =random(100)-50; min: =e[i]; nom: =1; writeln('элементы массива: '); for i: =1 to n do begin if (e[i]< min) and (e[i]> 0) then begin min: =e[i]; nom: =i; end; write (e[i]: 5); end; writeln(); writeln('наименьший положительный элемент массива: ',min); writeln('его номер: ',nom); end.
Поделитесь своими знаниями, ответьте на вопрос:
Для какого из указанных значений числа x истинно высказывание (x< 3) и (x> 1) ? 1) 12) 23) 34) 4
ответ: 2) 2
объяснение:
при x=2 :
(2< 3) и (2> 1) , условия выполняются.