Question

Помогите пожалуйста
Определить количество натуральных чисел, кратных числу 7, из интервала от 100 до 500.

Answer 1

Răspuns:

Program p1;

var a: Integer;

begin

for a:= 98 to 500 do

begin

if a mod 7 = 0 then

writeln(a);

end;

end.