Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
Thypson
21 / 21 / 4
Регистрация: 10.09.2013
Сообщений: 283
#1

Определить количество яблок, которое содержит пирамидка - PascalABC.NET

23.11.2013, 22:53. Просмотров 523. Ответов 3
Метки нет (Все метки)

Яблоки. Бабушка продавала яблоки на штуки. Чтобы привлечь внимание покупателей, она сложила из них пирамидку: сначала выложила квадрат размера N (N рядов по N яблок в каждом), образовав таким образом самый нижний слой. Следующий слой получился, когда между каждыми четырьмя соседними яблоками нижнего слоя было сверху положено еще по яблоку. Таким же образом выкладывались все последующие слои вплоть до самого верхнего, содержащего всего одно яблоко.

Задание. Напишите программу арр1ез, определяющую количество яблок, которое содержит эта пирамидка.

Входные данные. В единственной строке записано целое число N (1 < N < 100000000) сторона основания пирамид
То что набросал это только первый слой... а дальше не знаю как =С

Pascal
1
2
3
4
5
6
7
8
9
10
program PiramidaYablock;
var
   x,s: integer;
begin
  WriteLn('Введите размер квадрата(N): ');
  ReadLn(x);
  s := x * x;
  WriteLn('Первый слой равен: ',s);
  ReadLn();
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2013, 22:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить количество яблок, которое содержит пирамидка (PascalABC.NET):

Определить множество, которое содержит наибольшее количество элементов, которые есть в других множествах - PascalABC.NET
Дано N множеств. Определить множество, которое содержит наибольшее количество элементов, которые есть в других множествах.

Определить, какое из трех множеств содержит наибольшее количество элементов - Pascal
Нужно составить программу, которая определит какое из трех множеств содержит наибольшее количество элементов. Возможен вариант, что...

Файлы: Определить, запись какого из чисел содержит меньшее количество четных цифр - PascalABC.NET
Дан текстовый файл, содержащий целые числа, организованные в одну строку. Определить, запись какого из них содержит меньшее количество...

Какое максимальное количество подарков можно скомплектовать из X конфет, Y яблок и Z груш - Pascal
Даны целые неотрицательные a ,X ,Y, Z. Известно , что в каждый новогодний подарок необходимо положить а конфет , одно или 2 яблока ,одну...

Какое максимальное количество подарков можно скомплектовать из X конфет, Y яблок и Z груш - Pascal
Даны целые неотрицательные a, X,Y,Z. Известно, что в каждый новогодний подарок необходимо положить а конфет , одно или 2 яблока , одну или...

Какое максимальное количество подарков можно скомплектовать из X конфет, Y яблок и Z груш? - Pascal
Помогите решить задачку, пожалуйста(( Подарок. Даны целые неотрицательные a, b, c, X, Y, Z. Известно, что в каждый новогодний подарок...

3
Sinys
27 / 27 / 2
Регистрация: 25.12.2008
Сообщений: 186
Завершенные тесты: 1
23.11.2013, 23:09 #2
Сумма квадратов от N до 0
1
Thypson
21 / 21 / 4
Регистрация: 10.09.2013
Сообщений: 283
23.11.2013, 23:35  [ТС] #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Решено:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
   x,s,b,i: integer;
begin
  WriteLn('Введите размер квадрата(N): ');
  ReadLn(x);
  b := x;
  For i:=1 to x do 
  begin
  s += b * b;
  b -= 1;
  end;
  WriteLn('Количество яблок в пирамидке: ',s);
  ReadLn();
end.
0
Puporev
Модератор
53818 / 41451 / 14560
Регистрация: 18.05.2008
Сообщений: 97,081
25.11.2013, 18:07 #4
Цитата Сообщение от Sinys Посмотреть сообщение
Сумма квадратов от N до 0
Ну 0^2 можно и не считать...
0
25.11.2013, 18:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2013, 18:07
Привет! Вот еще темы с ответами:

Образовать множество, которое содержит три произвольных элемента множества А - PascalABC.NET
Данная множество А . Образовать множество , которая содержала три произвольных элементы множества А. Нужно очень срочно, помогите пожалуста

Задача афишировать слово которое содержит больше гласных и сколько их - Pascal
с помощью клавиатуры вводятся 3 слова. Задача афишировать слово которое содержит больше гласных и сколько их.

Дан текстовый файл,для каждой строки отобразить слово которое содержит отдельные максимальные письма - Pascal
Дан текстовый файл,для каждой строки отобразить слово которое содержит отдельные максимальные письмаю

Найти количество раз, которое встречается сочетание Aa и Bb в тексте - PascalABC.NET
По условию задачи необходимо найти количество раз, которое встречается сочетание Aa и Bb в тексте. Сам текст генерируется рандомом. Я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru