Уже был ответ про Колонтитул, а сноска перемещает текст. Для удобного просмотра информации. 50. Буквица в начале и в конце ставит §
1101100
573
1C9
11001100
242
C7
10111
1114
430
240
Кернинг и тренинг. не переживай ответ правильный!
Ответ:
program arr1; // ввод с клавиатуры
var
i: Integer;
a: array [1..10] of integer;
begin
for i := 1 to 10 do begin
Write ('Введите ', i , 'число: ');
ReadLn (a [i]);
end;
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
program arr1; // ввод по формуле (I * 2) можно поменять на другую
var
i: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do
a [i] := i * 2;
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
program arr1; // ввод рандомом - это то что на скриншоте экрана, только добавлено Randomize; чтобы числа были не всегда одинаковые
var
i: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do
a [i] := Random (50);
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
Объяснение:
Var
i,n:integer;
a:array[1..4] of integer;
begin
Write('n='); Read(n);
for i:=1 to 4 do begin
a[5-i]:=n mod 10;
n:=n div 10
end;
Writeln(a[4]*1000+a[3]*100+a[2]*10+a[1]);
Writeln(a[3]*1000+a[4]*100+a[1]*10+a[2]);
Writeln(a[2]*1000+a[1]*100+a[4]*10+a[3]);
Writeln(a[1]*1000+a[3]*100+a[2]*10+a[4])
end.
Пример
n=7048
8407
4870
784
7408