Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
1. Символов в алфавите 32, значит, для записи одного любого символа потребуется 5 бит ( = 32).
2. 512 (таблиц) * 256 (символов) * 5 (бит на символ) = 655 360 бит.
3. 655 360 бит = 81 920 байт = 80.
2, 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40, те что делиться на два)))
1) program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin
for i:=1 to n do
if B[i] mod 2=0 then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.
2) </span>program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin for i:=1 to n do
if (B[i] mod 2=0) and (i mod 2<>0)
then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.</span>
#include<iostream>
using namespace std;
int main()
{
int a;
cin >> a;
if (a / 10 == a % 10)cout<< ("YES");
else cout << ("NO");
}
