Тут всё просто , чисто логика и простота.
№4=4
№5=3
//Pascal ABC.NET 3.1 сборка 1256
Var
a,b:integer;
begin
read(a,b);
writeln(((a div b)*a+(b div a)*b)/((a div b)+(b div a)));
end.
Пример ввода:
8
5
Пример вывода:
8
Uses crt;
const n=3;
m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(15);
write(a[i,j]:3);
end;
end.
Ответ:
Цикл повториться 3 раза, т.к. изначально i = 3, каждый раз увеличивается на 1, и продолжается пока i не станет равным 6.
К а каждый раз прибавляется это самое i, т.е ответ будет= 12+3+4+5=24
Объяснение: