Найти сумму всех трехзначных чисел кратных К

Question

Информатика

Стратбник

1 января, 03:59

Найти сумму всех трехзначных чисел кратных К

+4

Ответы (2)

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

Васюта · Answer 1

i, k, s:integer;

read (k) ;

s=0

for i=100 to 999 do begin

if i mod k = 0 then

s=s+i;

end;

write (s) ;

end.

Викентия · Answer 2

var i, K, S:real;

begin

write ('vvedite K = ') ;

readln (K) ;

S=0

for i=100 to 999 do

begin

if i mod K = 0 then

S=S+i;

end;

write ('S = ', S) ;

readln;

end.