ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Складіть програму для обчислення суми всіх трьохзначних чисел, кратних 25.
rus:Составьте программу для вычисления суммы всех трехзначительных чисел, кратных 25.
НА ПАСКАЛЕ,плз.
написали уже раз, но как сказал препод это Дельфи..
помогииите...

Код:

program PoraSamomuUchitsya;
var
  i,k:integer;
begin
  k:=0;
  i:=100;
  while i<=1000 do
    begin
      k:=k+i;
      i:=i+25;
    end;
  writeln (k);
end.

Самый оптимальный алгоритм, я думаю.

Цитата:

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

но ничего, получилось схитрить и по примеру похожей задачи слепил свою, прокатило))

Можешь же самостоятельно писать, пробуй и дальше сам, а то нечему ведь не научишься, честно.