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

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

Информатика (50 баллов) | 74 просмотров
Дан 1 ответ
0 голосов

Я так понимаю вам нужна программа на Паскале
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.

(790 баллов)