Question

Помогите пожалуйста к задаче написать программу на Паскаль АВС. Вычислить значение функции z=cos (x) + y, где x и y изменяется от 1 до N.

Answer 1

var

z: real;

x,y,N: integer;

begin

Write('N= ');

Readln(N);

for x := 1 to N do

for y := 1 to N do

begin

z := cos(x)+y;

Println('x=', x, '; y=', y, '; z=', z);

end;

end.