[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

17.12.2009, 19:59

Thenno

Участник форума

Регистрация: 03.07.2009

Сообщений: 151

Провел на форуме:
638378

Репутация: 41

Отправить сообщение для Thenno с помощью ICQ

Цитата:

Сообщение от 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

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

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

Последний раз редактировалось Thenno; 17.12.2009 в 20:06..