Задание 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);
Объяснение:
пришли фотку задания , я попробую сделать