Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>
<u>Pascal:</u>
var a:array [1..5] of integer;
i:integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(31)-15;
write (a[i]:4);
end;
writeln;
for i:=1 to 5 do
begin
a[i]:=a[i]*2;
write (a[i]:4);
end;
writeln;
readln;
end.
<u>C++:</u>
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
int main()
{
int a[5];
srand (time(NULL));
for (int i = 0; i<5; i++)
{
a[i] = rand()%15-15;
cout <<a[i] <<" ";
}
cout <<endl;
for (int i = 0; i<5; i++)
{
a[i]*=2;
cout <<a[i] <<" ";
}
return 0;
}
c++17
#include <iostream>
using namespace std;
int main() {
size_t total = 0;
for(size_t i = 3; i < 13; ++i) {
if (i % 3 > 0) {
cout << i << " ";
++total;
}
}
cout << "\n" << total;
return 0;
}
Я не знаю я ещё такого не проходил