Я так понимаю вам нужна программа на Паскале
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);
<span>end.</span>
Если имеется в виду язык Pascal, то переменные описываются в разделе Var. В разделе Const описываются константы. А раздела Vaq в этом языке нет.
-------------------
C / C++:
-------------------
...
int curNum = 4, sum = 0;
while (curNum <= 30)
{
if (curNum % 3 == 0)
sum += curNum;
++curNum;
}
printf("%i", sum);
...
----------------------
PASCAL:
----------------------
var curNum, sum : integer;
begin
curNum := 4;
sum := 0;
while (curNum <= 30) do begin
if curNum mod 3 = 0 then
sum := sum + curNum;
curNum := curNum + 1;
end;
writeln(sum);
end.
Посмотреть один элемент над конечным. Видим, что это отрицание С > 0. Значит алгоритм остановится, когда С ≤ 0.
Например так:
123 / 2 = 61 (1)
61 / 2 = 30 (1)
30 / 2 = 15 (0)
15 / 2 = 7 (1)
7 / 2 = 3 (1)
3 / 2 = 1 (1)
Сначала записывается последняя единица (целая часть от деления на два, в данном случае, целая часть от деления 3 на 2),
затем записываются остатки - в обратном порядке
123_10 = 1111011_2