Задание 1: Узнаем какие числа у B2, C2, D2. B2=C1-2=6-2=4 C2=(B1+D1)-2=(3+5)/2=4 D2=D1+3=5+3=8 Получились числа 4,4,8 Теперь смотрим на круг. Там 2 одинаковых маленьких и 2 больших куска Два одинаковых маленьких это по 4. 2 больших получается по 8 А2=А1+2 Мы знаем что А2=8. Из этого узнаем, чему равно А1: 8=А1+2 А1=6 ответ 6
Задача 2 Узнаем чему равны А2, В2, D2 А2=5-2+1=4 В2=5-1=4 D2=4*4=16 Получается 4,4,16 Смотрим на круг. Там два маленьких это 4,4 Один большой это 16 Остаётся половинка большого это будет 8 D1-A1=5-3=2 не подходит В1+1=4+1=5 не подходит D1+A1=5+3=8 подходит С1*D1=2*5=10 не подходит Подходит вариант 3
Var {Файл 1.txt необходимо создать } n,i,j,c1:integer; a:array[1..100] of integer; f:text; begin {чтение данных с файла 1.txt} assign(f,'1.txt'); reset(f); i:=0; while not eof(f) do begin i:=i+1; read(f,a[i]); end; n:=i; close(f); {Сортировка} for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin c1:=a[j]; a[j]:=a[i]; a[i]:=c1; end; {вывод в файл 2.txt отсортированного массива} assign(f,'2.txt'); rewrite(f); for i:=1 to n do write(f,a[i]:5); close(f);
Узнаем какие числа у B2, C2, D2.
B2=C1-2=6-2=4
C2=(B1+D1)-2=(3+5)/2=4
D2=D1+3=5+3=8
Получились числа 4,4,8
Теперь смотрим на круг.
Там 2 одинаковых маленьких и 2 больших куска
Два одинаковых маленьких это по 4.
2 больших получается по 8
А2=А1+2
Мы знаем что А2=8. Из этого узнаем, чему равно А1:
8=А1+2
А1=6
ответ 6
Задача 2
Узнаем чему равны А2, В2, D2
А2=5-2+1=4
В2=5-1=4
D2=4*4=16
Получается 4,4,16
Смотрим на круг. Там два маленьких это 4,4
Один большой это 16
Остаётся половинка большого это будет 8
D1-A1=5-3=2 не подходит
В1+1=4+1=5 не подходит
D1+A1=5+3=8 подходит
С1*D1=2*5=10 не подходит
Подходит вариант 3
{Файл 1.txt необходимо создать }
n,i,j,c1:integer;
a:array[1..100] of integer;
f:text;
begin
{чтение данных с файла 1.txt}
assign(f,'1.txt'); reset(f);
i:=0;
while not eof(f) do
begin
i:=i+1;
read(f,a[i]);
end;
n:=i;
close(f);
{Сортировка}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
c1:=a[j];
a[j]:=a[i];
a[i]:=c1;
end;
{вывод в файл 2.txt отсортированного массива}
assign(f,'2.txt'); rewrite(f);
for i:=1 to n do
write(f,a[i]:5);
close(f);
end.