Pascal В интервале целых чисел найти все числа кратные 7

[NewBi]

б) В интервале целых чисел [Random(d); Random(d*2)] найти все числа, кратные 7 и их сумму. Величина d выбирается в интервале [200; 500].
Вот такое вот построени задачи я немогу его зделать ... Помогите пожалусто

[RUSt88]

это легко на самом деле
кратные 7 - значит делящиеся на 7 без остатка
что мы имеем: у нас есть оператор такой mod, к-рый возвращает остаток от деления чисел
напр.

g := 7 mod 3;

g будет равен 1 (остаток от деления 7 на 3)

у тебя в задаче надо пройтись по всем числам и определить, делится ли число на 7 без остатка, если делится - выводим его

вот и вся задача, неохота этим заниматься, пиши на мыло, договоримся

[RUSt88]

это легко на самом деле
кратные 7 - значит делящиеся на 7 без остатка
что мы имеем: у нас есть оператор такой mod, к-рый возвращает остаток от деления чисел
напр.

g := 7 mod 3;

g будет равен 1 (остаток от деления 7 на 3)

у тебя в задаче надо пройтись по всем числам и определить, делится ли число на 7 без остатка, если делится - выводим его

вот и вся задача, неохота этим заниматься, пиши на мыло, договоримся

[Ba3uJluH]

Если я правильно понял условие задачи, то первое что пришло в голову:
program prg;
uses
crt;
var
d,k,k1,sum:longint;
c:boolean;

begin
randomize;
clrscr;
c:=true;

while c do begin // проверяем условие 200<d<500
readln(d);
if (d<200) or (d>500) then writeln('Неверное число')
else c:=false;
end;

k:=random(d); //я подумал, что промежуток задаётся так, но не уверен
k1:=random(d*2);
writeln('Ищем в интервале от ',k,' до',k1);
sum:=0;

if k>=k1 then
while k1<=k do begin
if k1 mod 7 = 0 then begin sum:=sum+k1; write(k1,' '); end;
inc(k1);
end;

else
while k<=k1 do begin
if k mod 7 = 0 then begin sum:=sum+k; write(k,' '); end;
inc(k);
end;

writeln;
writeln('Result=',sum);
readln;

end.

[NikLik]

Позволю себе немного подправить код Ba3uJluH

program prg;
var
  d, k, k1, temp, sum: longint;
begin
  randomize;
  while true do
  begin // проверяем условие 200<=d<=500
    readln(d);
    if (d >= 200) and (d <= 500) then
      break;
    writeln('Неверное число.');
  end;
  k := random(d);
  k1 := random(d * 2);
  if (k1 < k) then
  begin
    temp := k;
    k := k1;
    k1 := temp;
  end;
  writeln('Ищем в интервале от ', k, ' до ', k1);
  sum := 0;
  while k <= k1 do
  begin
    if k1 mod 7 = 0 then
    begin
      sum := sum + k1;
      write(k1, '; ');
    end;
    inc(k1);
  end;
  writeln;
  writeln('Сумма: ', sum);
  readln;
end.

[NewBi]

Спасибо всем Большое!!!) очень помогли вы очень хорошые люди СПс биг!!