Дано натуральное число N. Выяснить, сколько положительных
элементов содержит матрица [Аij]i=1,...,n;i,j=1,....,n, если Аi.j =cos(i^2 +n).
Ответы на вопрос
Ответил mrsasz1
0
var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
End.
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
End.
Ответил dezziz
0
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Writeln('vvedine n=');
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
End.
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Writeln('vvedine n=');
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
End.
Ответил dezziz
0
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var c,i,n:integer;
begin
writeln('vvedite n=');
readln(n);
C:=0;
FOR I:=1 TO N DO
begin
if cos(i*i+n)>0 then inc(c);
end;{i}
writeln(c:5);
Readln;
END.
{$APPTYPE CONSOLE}
uses
SysUtils;
var c,i,n:integer;
begin
writeln('vvedite n=');
readln(n);
C:=0;
FOR I:=1 TO N DO
begin
if cos(i*i+n)>0 then inc(c);
end;{i}
writeln(c:5);
Readln;
END.
Новые вопросы