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);
<span>End.</span>
1.
var
a:array [1..100000] of integer;
n, k, i:integer;
begin
read (n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
writeln (a[i]);
readln (k);
for i:=1 to n do
if k>a[i] then write (a[i]);
end.
#include <iostream>
#include <cmath>
using namespace std;
int x,n;
double r;
int main()
{
r = 0;
cin >> n;
double *ptrarray = new double[n];
for (int i = 0; i < n; i++)
{
cin >> x;
ptrarray[i] = cos(2*x) + 3;
if (fmod(ptrarray[i],2) != 0
{
r=r*ptrarray[i];
}
}
cout << r;
return 0;
}
<u>Чертежник PascalABC.NET 3.3
</u>
Текстовый файл с кодом для букв и другой фигуры(круг) прикреплены:
На скане таблица для 1:)
2 не могу
3 2
4 2 подходит