Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Thypson
21 / 21 / 19
Регистрация: 10.09.2013
Сообщений: 285
1

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

23.11.2013, 22:53. Просмотров 1044. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

3
Sinys
27 / 27 / 6
Регистрация: 25.12.2008
Сообщений: 186
Завершенные тесты: 1
23.11.2013, 23:09 2
Сумма квадратов от N до 0
1
Thypson
21 / 21 / 19
Регистрация: 10.09.2013
Сообщений: 285
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
Модератор
55012 / 42307 / 29213
Регистрация: 18.05.2008
Сообщений: 99,972
25.11.2013, 18:07 4
Цитата Сообщение от Sinys Посмотреть сообщение
Сумма квадратов от N до 0
Ну 0^2 можно и не считать...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2013, 18:07

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

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

Образовать множество, которое содержит три произвольных элемента множества А
Данная множество А . Образовать множество , которая содержала три произвольных...


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

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

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