Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Var
x,y:integer;
begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.
<span>program jnrvjf;
var
A: array[0..20] of integer;
x, b, i, d, c: integer;
begin
writeln('Введите число элементов в массиве');
readln(d);
writeln('Введите число');;
readln(x);
b:=0;
for i:= 1 to d do
A[i] := random (20);
writeln(A);
for i:= 1 to d do
begin
c:= A[i];
if (c > b) then
b:=A[i]
end;
writeln('Максимальное значение в множестве: ', b);
for i:=0 to d do
begin
b:=A[i];
if b = x then
writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.
end;
end.</span>
ну например
в первом столбике пишешь числа попорядку
во втором столбике пишешь "=A1*A1" и протягиваешь вниз на всю таблицу
в третем пишешь "=A1*A2" и протягиваешь вниз на всю таблицу
в первом столбике у нас получается число
во втором квадрат числа
в третем - куб числа