Var
a,c,d,t:real;
begin
Write('Введите сторону квадрата: '); Read(a);
Write('Введите длину и ширину прамоугольника: ');
Read(c,d);
if c<d then begin t:=c; c:=d; d:=t end;
if (d>a) and (c>2*a) then Writeln('Два квадрата помещаются')
else Writeln('Два квадрата не помещаются')
end.
<u>Пример</u>
Введите сторону квадрата: 8
Введите длину и ширину прамоугольника: 16.2 9
Два квадрата помещаются
Масштаб ответа зависит не от количества пустых словечек, а от максимально-допустимого удовольствия им охватываемой пустоты.
Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
PROGRAM Matrix77
var A: array [1..7][1..7] of real; // Объявляем переменные
var i, j: integer
BEGIN
crt;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массив
readln;
end;
for i:= 1 to 7 do
begin // Проверяем, что элемент выше диагонали
for j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем его
end;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массив
writeln;
end;
END.
(i<=j) - номера элементов <span>выше и на главной диагонали
</span>(i+j<=n+1) - номера элементов <span>выше и на побочной диагонали
Ответ: </span><span>4) сумма элементов выше и на главной диагонали, выше и на побочной диагонали</span>