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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2015, 18:24   #1
ANTON66
 
Регистрация: 24.11.2015
Сообщений: 4
По умолчанию Найти сумму кубов первых n натуральных чисел

написать программу Делфи . Найти сумму кубов первых n натуральных чисел
ANTON66 вне форума Ответить с цитированием
Старый 24.11.2015, 19:00   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
сумму кубов
Ппц... Прочитал "крабов" О_о
Цитата:
написать программу Делфи
Попытки? Наработки? Хоть что-нибудь...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.11.2015, 17:19   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,n,s:integer;
begin
   Randomize;
   n:=3+Random(10);
   s:=0;
   For i:=1 to n do
      s:=s+i*i*i;
   Label1.Caption:=IntToStr(s);
end;
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив из п четырехзначных натуральных чисел. Вывести на экран только те, у которых сумма первых Nod123 Помощь студентам 7 04.01.2015 09:17
Три задачи - Найти сумму натуральных чисел; Протабулировать функцию; вычислить сумму kolya1114 Паскаль, Turbo Pascal, PascalABC.NET 3 01.12.2012 19:01
C++/ Все способы представления заданного натурального числа N в виде суммы двух кубов натуральных чисел / acko Помощь студентам 1 25.09.2010 12:15
С++ айти первых 10 натуральных чисел, нацело делятся на 19 и находятся в интервале, левая граница которог loloverg Помощь студентам 2 25.05.2010 19:42