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

Question

Информатика

Володяха

2 июня, 21:15

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

+1

Ответы (1)

Знаете ответ на вопрос?

Филофей · Answer 1

Program zadacha;

uses crt;

var n, k: integer;

s: longint;

begin

clrscr;

write ('enter k: ') ;

readln (k) ;

s:=0;

for n:=k to 9999 do begin

if n mod k = 0 then

s:=s+n;

end;

writeln ('summa=', s) ;

readkey;

end.