Найти сумму всех n-значных чисел, кратных k (1 ≤ n ≤ 4). кумир. , надо!

Ятак понимаю вам нужна программа на паскале program zadacha; var s,k,n,p,i: integer; begin s: =0; p: =1;       readln(n,k);       for i: =1 to n do p: =p*10;       for i: =trunc(p/10) to p-1 do      if i mod k=0 then      s: =s+i; write(s); end.

Влодку сначала садятся один купец и один разбоник перебираются на другой берег остается разбойник купец возвращаетя обратно забирает разбойника едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает разбойника едут на другой берег и высаживаются оба лодка совершила 9 рейсов

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.