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

Question

Информатика

Христена

13 ноября, 13:05

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

+4

Ответы (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.