задание. Вычислить сумму чисел кратных 7 которые меньше 400

[sunny5442]

задание. Вычислить сумму чисел кратных 7 которые меньше 400
помогите составить программу)))))))

[ROMA2PVT]

Uses
   CRT;
Var
  i,x,sum:longint;
begin
Clrscr;
  x:=0;
   sum:=0;
   while x<=400 do
     begin
       if x mod 7=0 then
         begin
           sum:=sum+x;
             write(x,' ');
         end;
             inc(x);
     end;
         writeln;
         writeln('Сумма чисел кратных 7:=',sum);
         readkey;
end.

[sunny5442]

пасибо большое)))))))))) А что за тип Longing???????

[Grag]

ТАМБОВСКИЙ ВОЛК! Уж куда лучше это сделать вот так

  X:=1;
  Sum:=0;
  while X*7<400 do
    begin
      Sum:=Sum+X*7;
      Inc(X)
    end;
  writeln('Summa =',Sum);

На лишних циклах время нужно экономить!!!

[ROMA2PVT]

А что за тип Longing???????

не Longing а

 longint

http://pascal.guti.ru/types.html

На лишних циклах время нужно экономить!!!

Не вижу смысла на школьных заданиях экономить время и код оптиизировать.О да!учитель прям заценит.ИМХО

[sunny5442]

все ясно))))))))) пасибочки

[ROMA2PVT]

Не за что.

[Grag]

Не научишься писать оптимальный код на таких задачах, в программах, где тысячи строк кода вообще ничего не сделаешь... И будут твои программы сутками делать не нужные операции... ИМХО.

[ROMA2PVT]

А я и неговорил про себя.Я говорил про школьников которые постят.А я то уж поверьте научусь.

[Grag]

Ну, тогда просто к твоему сведению. Твой код подсчитывает сумму за 393 цикла, предложенный мной все тоже самое считает всего за 57 циклов...
Как разница??? Ощутима???