Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от Vish

Ему нужно вообще то, чтобы выводилась сумма элементов делящихся на 25

А ты что сделал? Вот ему писали на делфи https://forum.antichat.ru/showthread.php?p=1753598#post1753598

Я ему что требовалось, то и написал. Только в одном месте немного ошибся, признаю.

Код:

var
  i,k:integer;
begin
  k:=0;
  i:=100;
  while i<=999 do  // тут 999, а не 1000, как было 
    begin
      k:=k+i;
      i:=i+25;
    end;
  writeln (k);
end.

Просто это несколько другой алгоритм, вот и все. Посмотри повнимательней.

P.S Мне твой способ кажется каким то... извращенским что ли. Можно проще, без ненужного геморроя с массивами.

Код:

var
  i:integer;
  k:integer;
begin
  k:=0;
  for i:=100 to 999 do
    if i mod 25 = 0 then
      k:=k+i;
  writeln (k);
end.