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

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

23.11.2013, 22:53. Просмотров 1035. Ответов 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
Сообщений: 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
Модератор
54216 / 41849 / 28921
Регистрация: 18.05.2008
Сообщений: 98,514
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