нц
для i от 1 до 2
S := 0
нц
для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
S = (2 + 2 + 1) + (2 + 2 + 2) + (2 + 3 + 1) + (2 + 3 + 2) = 5 + 6 + 6 + 7 = 24
Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.
1 бит
2 возможных варианта или капуста или повидло.
<span>program matrica;
Var
i,j,n:integer;
a:array[1..50,1..50] of integer;
Begin
Writeln('Введите размерность матрицы:');
Readln(n);
for i:=1 to n do
begin
Writeln('Ввод ',i,' строки');
for j:=1 to n do
begin
Write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
end;
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
for i:=1 to n do
for j:=i to n do
if a[i,j]=a[j,i] then
Writeln(a[i,j],' i=',i,' j=',j);
End.</span>
Какую длину и где сама окружность