1.напишите программу , которая определяет по введенной градусной мере развернутый угол или нет. 2.для данного x вычислить: если x> 5, то возвести число в квадрат; если x< 5, то возвести в куб. для !

186

293

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

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

Kakanya

Информатика

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

Program programma1; uses crt; var a: real; begin clrscr; write('градусная мера угла a = '); readln(a); if a> =0 then begin if a< > 180 then writeln ('угол не является развернутым') else writeln ('угол является развернутым'); end else writeln('угол не может быть отрицательным'); end. program programma2; uses crt; var x: real; begin clrscr; write('x = '); readln(x); if x> 5 then x: =x*x; if x< 5 then x: =x*x*x; writeln('ответ: ',x); end.

alyabevan02001

Информатика

4,8(38 оценок)

Const nx = 30; var c: array[1..nx]of integer; r,i,n,m,max,k,el: integer; begin randomize; write('введите количество элементов'); readln(n); for r: =1 to n do begin c[r]: =random(100)-50; write(c[r]: 4); end; writeln; for r: =1 to n do begin if 0 < c[r] then begin for i: =r to n do begin if (0 > c[i])and (abs(c[i])= c[r]) then writeln(r: 3,c[r]: 4,' ',i: 3, c[i]: 4); end; end; if 0 > c[r] then begin for i: =r to n do begin if (0 < c[i])and (c[i]= abs(c[r])) then writeln(r: 3,c[r]: 4,' ',i: 3, c[i]: 4); end; end; end; end.