Var
mas : array [1..5] of longint;
sum : longint;
i: byte;
begin
for i:=1 to 5 do
begin
read (mas[i]);
if (mas[i] mod 4 = 0) and (mas[i] mod 10 = 6) then sum:=sum+mas[i];
end;
writeln (sum);
end.
В общем, т.к. ты мне не ответил - лови две программы:
1)
Program dasf;
var b,c,i: integer;
A: Array[1..100] of real;
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do
begin
Writeln('Введите элемент массива №',i);
readln(D[i]);
end;
Writeln('Массив А:');
For i:=1 to b do
begin
If i mod 2=1 then A[i]:=5+(D[i]*D[i])
else A[i]:=D[i]/i;
Writeln(A[i]);
end;
end.
2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin
Writeln('Введите сколько чисел будет использоваться:');
readln(b);
Writeln('Введите х:');
readln(x);
Writeln('Введите число №',1);
readln(z);
k:=0;
For i:=2 to b do
begin
Writeln('Введите число №',i);
readln(y);
If z+y=x then k:=k+1;
z:=y;
end;
Writeln(k);
end.
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе. <span> </span>
№1 8 Кбайт - 8192 байт - 65536 бит
3 Кбайт - 3072 байт - 24576 бит
8 Кбайт - 8192 байт - 2^15 бит
2.5 Гбайт - 2560 Мбайт - 2621440 Кбайт
<span>from math import pow
</span><span>x=float(input('задайте x: '));
</span><span>y=float(input('задайте y: '));
</span><span>bt=0;
</span><span>if (y<=1): bt=bt | 1;
</span><span>if (y<=-x): bt=bt | 2;
</span><span>if (pow(x,2)+pow(y,2)<=1): bt=bt | 4;
</span><span>if (pow(x-1,2)+pow(y,2)<=1): bt=bt | 8;
</span><span>print('битовый код: ',bin(bt));
</span>задайте x: -1
<span>задайте y: 0.5
</span><span>битовый код: 0b11
</span>
задайте x: 0.5
<span>задайте y: 0.5
</span><span>битовый код: 0b1101
</span>
задайте x: 0.2
<span>задайте y: -0.3
</span><span>битовый код: 0b1111
</span><span>
</span>
Var
a,b,f,d,x:integer;
z1,z2,z3,z4,z5,y:real;
begin
// readln(x,a,b,f,d);
x:=3; a:=2; b:=5; f:=1; d:=4;
z1:=exp((2*x)*ln(sin(x*x*x)));
z2:=abs(a-b*b*b);
z3:=sqr(sin(z2)/cos(z2));
z4:=sin(x*x);
z5:=sqrt(z4*z4*z4)*f*d;
y:=sqrt((z1+z3)/z5)*cos(x);
writeln('y = ',y);
end.
Результат:
y = -0.978314903227326