Регистрация
melochek228
28.11.2022 12:12
Информатика
Есть ответ 👍

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

103
336
Посмотреть ответы 3

Ответы на вопрос:

дома9
дома9
4,4(52 оценок)

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.

Mramericka1988
Mramericka1988
4,6(2 оценок)

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.

gerasimovichninka
gerasimovichninka
4,6(98 оценок)
Вроде получается
1) 36
2)129

Популярно: Информатика