В объяснении
Объяснение:
program zadacha;
const n= 6, m=6;
var a:array[1..n, 1..m] of integer;
i, j, s, k: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random (100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if i>j then
begin
k:=k+1;
s:=s+a[i,j];
end;
writeln('Сумма=',s);
writeln('Количество=',k);
readln;
end.
На паскале
program zadanije_tri;
var a, b, c:integer;
begin
writeln('Введите первое число.');
readln(a);
writeln('Введите второе число.');
readln(b);
if a=b then
begin
c:=a*a+b*b;
writeln('Введённые числа равны, сумма их квадратов равна ',c,'.');
end
else
begin
c:=(a+b)*(a+b);
writeln('Введённые числа не равны, квадрат их суммы равен ',c,'.');
end
end.
Объяснение:
Если ввести равные ЦЕЛЫЕ числа, то программа выдаст сумму их квадратов, если ввести разные числа, то программа выдаст квадрат их суммы.
