Нужно делать хорошее, чтобы люди не возненавидели. Надо говорить хорошими для окружающих делами
Легко: exbnrh' это английская кодировка
Var a, i, b: integer;
begin
readln(a, b);
for i := a to b do
writeln(i, ' ', sqr(i));
i := a;
while (i <= b) do
begin
writeln(i, ' ', sqr(i));
inc(i);
end;
<span>end.
В одной программе оба подхода =)</span>
<em>1.</em>
var
i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
<span>
</span><em>2.</em>
var
x,i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.
Ответ:
ССССО
Объяснение:
Закодируем следующим образом
Л - 0, Н - 1, 0 - 2, С - 3
Получаем
00000
00001
00002
00003
00010...
Получаем кодировку с основанием 4, где на 1-м месте 0, на втором - 1, на третьем - 2, на четвертом - 3 , на пятом - 4. Видим закономерность, что позиция и номер отличаются на один. Значит на 1023 будет стоят число 1022 переводим в систему с основанием 4. Получаем 33332. Теперь заменяем соответствующими буквами ССССО.