Const
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.<span>
</span>
1. (x>=-1) and (x <=1)
2. (x<-1) and (x>1)
3. (x<0) and (y<0)
4. (x<0) or (y<0)
5. (x>0) and (y>0)
6. sign(x)<>sign(y)
7. x*y*z<>0
8.x*y*z=0
9. (x<>0) or (y<>0) or (z<>0);
var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.
<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>x=1.36
P=-0.0783922330060185
Решите задачи черезCodeblocks(TXLib.h) Условие: 1) заполнить массив числами 10,12,14,16,18,20,22,24,26,28,30. 2) Заполнить масс
Korosta
Include <stdio.h>
int main ()
{
const int SIZE = 12;
int array [SIZE] = {10};
for (int i = 1; i < SIZE; i++)//Task1
array[i] = array[i - 1] + 2;
//Task2
array[0] = 1;
for (int i = 1; i < SIZE; i++)
array[i] = array[i - 1] * 2;
//Task3
int Data[SIZE - 2] = {};
for (int i = 0; i < SIZE - 2; i++)
scanf ("%d", &Data[i]);
for (int i = 0; i < SIZE; i++)
printf ("[%d] = %d", i, Data[i]);
//task 4 = task 3, но SIZE = 7
}