Напишите на языке паскаль программу вычисления y по формуле: y= (1-x2 +5x4 )2, где x - данное целое число

229

435

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

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

GLEBfy

Информатика

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

//pascalabc.net 3.2 begin var x: =readinteger ('введите x: '); write ('y=', sqr(1-x*x+5*sqr(x*x)) ); end.

diant020502

Информатика

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

Var arr: array[1..100] of integer; i, n, max, min: integer; begin max: =1; min: =1; readln(n); for i: =1 to n do begin read(arr[i]); if arr[i] > arr[max] then max: =i else if arr[i] < arr[min] then min: =i; end; writeln; writeln('минимальный: ', arr[min], ''); writeln('максимальный: ', arr[max], ''); end.