Const n=10;
var a: array [1..n] of integer; - массив чисел
var i,j,s: integer;
begin
j:=0;
s:=0;
for i:=1 to n do a[i]:=random(100);
for i:= 1 to n do
begin
if ((a[i] mod 5 = 0) or (a[i] mod 10 = 0)) then
begin
s:=s+a[i]; j:=j+1;
end;
end;
writeln('число чисел, кратных 5 и 10 = ', j);
writeln('сумма чисел = ',s);
end.
<span>в двоичном коду алфавит состоит из 2 чисел 0 1, всего 3 цифры, значит 3*1бит=3бита</span>
<span>constnMax = 10;
var a:array [1..nMax] of integer;
buf :integer;
begin
readln(k, l);
for i := 1 to m do begin
buf := a[i, k];
a[i, k] := a[i, l];
a[i, l] := buf;
end;
<span>end.
</span></span>
Сообщение - рубикон перейден, сдвиг - 27
Для расшифровки можно использовать программу:
const st='ХШЖНПУТ ФКХКОЙКТ';
var i,j:integer; s:string;
begin
for i:=25 to 30 do
begin
s:='';
for j:=1 to length(st) do
if st[j]<>' ' then s:=s+chr(ord(st[j])+i) else s:=s+' ';
writeln(s);
end;
end.
Var s:string;
begin
write ('Введите слово: '); read(s);
writeln('Количество символов в слове = ',length(s));
if s[2] = s[length(s)-1] then writeln('Вторая и предпоследняя буквы совпадают') else <span>writeln('Вторая и предпоследняя буквы не совпадают');
end.</span>