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