Найти сумму всех n(1-4)значных чисел кратных k
Найти сумму всех n(1-4)значных чисел кратных k
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы