Program mas; uses crt; var X:array [1..8,1..7] of integer; i,j,a,b:integer; begin clrscr; write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): '); repeat read(a,b); until a<=b; writeln; randomize; for i:=1 to 8 do for j:=1 to 7 do X[i,j]:=random(b-a+1)+a; writeln('Ваш массив:'); for i:=1 to 8 do begin for j:=1 to 7 do write(X[i,j]:5); writeln; end; for i:=1 to 8 do for j:=1 to 3 do X[i,j]:=sqr(X[i,j]); writeln; writeln('Рeзультат:'); for i:=1 to 8 do begin for j:=1 to 7 do write(X[i,j]:5); writeln; end; readkey; end.
Если ты пишешь на другом языке программирования, то могу коротко рассказать суть решения. Большой квадрат со стороной x получается из x^2 маленьких квадратом, которые состоят из двух прямоугольных треугольников. Такие квадраты можно составить из треугольников a1 и a2 или a3 и a4. Поэтому берём минимальное значение из a1 и a2 и минимальное из a3 и a4. Суммируем эти значения, берём корень и округляем в меньшую степень.
подставляем: 2>2(нет,значит ложно - пишем 0)
2>5(нет,ложно - 0)
0V0=0
2<3(истинно - 1)
0>1 = 1(Истинно)
обратите внимание на таблицы конъюнкции,дизъюнкции и следстия