Найти минимальное число, большее n, которое без остатка делится на k (k, n - натуральные числа). на с++ или с#

Восстановим порядок выполнения команд:

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / b = ...

3) прибавь 4 — ...

4) прибавь 4 — ...

5) прибавь 4 — 12 + 4 = 16

Рассмотрим детальней, заменив неизвестные на буквы:

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / b = x

3) прибавь 4 — x + 4 = y

4) прибавь 4 — y + 4 = 12

5) прибавь 4 — 12 + 4 = 16

Теперь выписываем выражения с неизвестными и методом подстановки создаем одно большое уравнение:

52 / b = x

x + 4 = y

y + 4 = 12

52 / b + 4 + 4 = 12

52 / b = 4

b = 52 / 4 = 13

Неизвестное число b равно 13.

Проверяем:

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / 13 = 4

3) прибавь 4 — 4 + 4 = 8

4) прибавь 4 — 8 + 4 = 12

5) прибавь 4 — 12 + 4 = 16

Все верно

ответ: 13

Program gt2;
var i,j,s:integer;
a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(7)+12;
for i:=1 to 4 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[j,i];
writeln(s);
end;
end.

program gt3;
var i,j,s:integer;
a:array[1..7,1..7]of integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(7)+12;
for i:=1 to 7 do
begin
s:=0;
for j:=1 to 7 do
if(a[j,i]<14)then s:=s+1;
writeln(s);
end;
end.

program gt4;
var i,j,p:integer;
a:array[1..3,1..3]of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
for i:=1 to 3 do
begin
p:=a[i,1];
a[i,1]:=a[i,2];
a[i,2]:=p;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.