Помогите пожалуйста к задаче написать программу на Паскаль АВС. Вычислить значение функции z=cos (x) + y, где x и y изменяется от 1 до N.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.