Найти сумму натуральных трехзначных чисел, каждое из которых при делении на 7 дает в остатке 3. (С использованием цикла, на языке Pascal)

Question

Информатика

Фавста

31 мая, 16:33

Найти сумму натуральных трехзначных чисел, каждое из которых при делении на 7 дает в остатке 3. (С использованием цикла, на языке Pascal)

+2

Ответы (1)

Знаете ответ?

Егоня · Answer 1

Uses crt;

var number:integer;

begin

number : = 0;

for var i : = 100 to 999 do

if (i mod 7 = 3) then

number : = number + i;

writeln ('Сумма: ', number) ;

end.