Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2008, 01:23   #1
Nora
Новичок
Джуниор
 
Регистрация: 24.05.2008
Сообщений: 2
По умолчанию Нужна помощь по решению задачи .(Delphi)

Вводятся числа a и b. Найти сумму таких чисел в диапазоне [a;b], которые при возведении в квадрат превышают b
Nora вне форума Ответить с цитированием
Старый 24.05.2008, 01:37   #2
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Только целый тип?
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 24.05.2008, 01:45   #3
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Что-то задание не вполне точное
Цитата:
Найти сумму таких чисел
Сумму двух разных чисел или скольки угодно? Сумму одну или все варианты, потому что если суммы, то получим из условия квадрат сумм, иначе вроде сумма квадратов.

Вот для двух целых чисел (сумма квадратов)
Код:
write(a, b);
for i := a to b do
  for j := a to b do
    if a <> b then
      if sqr(i) + sqr(j) > b then writeln(i, '  ', j)
eoln вне форума Ответить с цитированием
Старый 24.05.2008, 03:14   #4
Nora
Новичок
Джуниор
 
Регистрация: 24.05.2008
Сообщений: 2
По умолчанию

Сколько угодно ...
Nora вне форума Ответить с цитированием
Старый 24.05.2008, 07:29   #5
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,i,sum:integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
sum:=0;
for i:=a to round(sqrt(b)) do
if sqr(i)<=b then
    begin
      sum:=sum+i;
    end;
Edit3.Text:=inttostr(sum);
end;
puporev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi.Задачи.Нужна помощь SkaStud Помощь студентам 10 30.05.2011 23:26
Нужна помощь в решении задачи в Delphi AndrYxo Помощь студентам 10 28.04.2008 15:53
Нобхадима помощь по решению задач. Данилыч Д. Паскаль, Turbo Pascal, PascalABC.NET 11 12.12.2007 22:12
DELPHI две задачи очень нужна помощь. MARGO Помощь студентам 2 01.11.2007 22:35
Нужна помощь по Delphi Виктория 1 Фриланс 5 25.02.2007 21:21