Program SummaKv;
var
n, i: integer;
begin
n := 0;
for i := 1 to 100 do
n := n + sqr(i);
writeln('Сумма квадратов первой сотни чисел = ', n);
end.
Здесь квадрат числа 100 так же включается в сумму.
Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.
Program Question;
var
nameF, nameS, rels :string;
Begin
Write('Введите первое имя: ');
Readln(nameF);
Write('Введите второе имя: ');
Readln(nameS);
Write('Введите отношения: ');
Readln(rels);
Writeln(nameF, '+', nameS, '=', rels);
End