В объяснении
Объяснение:
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.
Объяснение:
Если ввести равные ЦЕЛЫЕ числа, то программа выдаст сумму их квадратов, если ввести разные числа, то программа выдаст квадрат их суммы.
Поделитесь своими знаниями, ответьте на вопрос:
Какое минимальное основание имеет система счисления. если в ней записаны числа 312, 222. 111. 152? определите десятичный эквивалент данных чисел в найденной системе счисления. решить.
312(6) = 3*6^2+1*6+2 = 116(10)
222(6) = 2*6^2+2*6+2 = 86(10)
111(6) = 6^2+6+1 = 43(10)
152(6) = 1*6^2+5*6+2 = 68(10)