Количество зёрен на клетке будет равно 2^(N-1)
Тут сказано использовать переменную типа integer, при этом надо помнить, что максимальный номер клетки, который можно задавать равен 31 (для номеров выше будет либо ошибка, либо неверный ответ).
Чтобы считать зерно вплоть до последней, 64-ой клетки шахматной доски- надо менять тип на uint64 либо BigInteger (но, они не везде доступны да и программу надо будет править).
Вариант с циклом loop (в нём задаётся число повторов)
function Zern2(a: integer): integer;
begin
Result := 1;
loop a-1 do
Result := Result * 2;
end;
begin
var n,m: integer;
write('Введите номер клетки: ');
Read(n);
m:=Zern2(n);
write('Зёрен на этой клетке: ',m,' шт.');
end.
Вариант с циклом while:
function Zern2(a: integer): integer;
begin
Result := 1;
while a>1 do
begin
Result := Result * 2;
a := a - 1;
end;
end;
begin
var n,m: integer;
write('Введите номер клетки: ');
Read(n);
m:=Zern2(n);
write('Зёрен на этой клетке: ',m,' шт.');
end.
Вариант без цикла:
function Zern2(a: integer): integer;
begin
Result := Trunc(power(2,a-1));
end;
begin
var n,m: integer;
write('Введите номер клетки: ');
Read(n);
m:=Zern2(n);
write('Зёрен на этой клетке: ',m,' шт.');
end.
Основні етапи створення документа
Объяснение:
Створення нового документа. Поняття шаблону
Створення нового документа передбачає відкриття чистого вікна програми Word for Windows, в якому можна вводити текст документа, причому параметри створюваного документа визначені за замовчуванням і залежать від шаблону, на якому базується документ.
Шаблоном називається спеціальний файл, в якому закодовані всі параметри новостворюваного документа. Шаблон визначає наступні параметри:
• параметри сторінки;
• таблиці стилів;
• елементи інтерфейсу;
• елементи автотексту;
• макроси;
• базовий текст.
За замовчуванням всі нові документи ґрунтуються на шаблоні, файл якого має ім'я Normal.dotx. Документ, створений на шаблоні Normal.dotx, складається з однієї сторінки і має один символ - символ кінця абзацу.
Прийоми створення нового документа
Для створення нового документа можна використовувати такі прийоми:
1) за замовчуванням при завантаженні програми відразу відкривається чисте вікно, в якому можна створювати документ, заснований на шаблоні Normal.dotx.
2) використовувати кнопку Створити стандартній панелі інструментів, яка дозволяє створити новий документ, заснований на шаблоні Normal.dotx, в процесі роботи програми (кнопку Створити можна додати на панель інструментів описаним вище
3) створити новий документ, що базується на іншому шаблоні, можна, використовуючи команду Створити з меню Файл. У діалозі слід вибрати потрібний шаблон.
Для того щоб можна було використовувати параметри створеного документа (шаблон), необхідно правильно вибрати нанка збереження шаблону. Ця папка називається Шаблон, для збереження документа треба в неї перейти. Для переходу до папки використовується наступний шлях:
ІМ'Я КОРИСТУВАЧА - APPDATA - ROAMING - MICROSOFT - ШАБЛОНИ.
Параметри створюваних документів залежать від Шаблона, на якому базується документ.
Сукупність параметрів шрифту та абзацу називається стилем документа. За замовчуванням при створенні нового документа, заснованого на шаблоні Normal.dotx, стиль першого абзацу називається Звичайний. При форматуванні документа можна змінювати всі параметри сторінки, абзацу та шрифту.
Створення документа обов'язково закінчується збереженням документа. Новостворюваний документ не має імені, але визначений стандартним назвою Документ № ... Для збереження документа необхідно визначити ім'я диска, каталогу і файлу, в якому буде збережений документ.
Правила набору тексту
При наборі тексту в текстовому процесорі Word необхідно пам'ятати, що:
• набір тексту здійснюється безперервно, перехід на наступний рядок абзацу здійснюється програмою автоматично;
• форматування документа при наборі відбувається автоматично з урахуванням встановлених меж сторінки та абзацу;
• в кінці логічного абзацу для початку набору нового абзацу натискається клавіша Enter;
• перехід на нову рядок, не закінчуючи абзацу, здійснюється при натисканні комбінації клавіш Shift + Enter;
• символ "нерозривний дефіс" вставляється в текст при натисканні комбінації клавіш Ctrl + Shift + (-);
• символ "нерозривний пробіл" вставляється в текст при натисканні комбінації клавіш Ctrl + Shift + Пробіл;
• символ "необов'язковий перенос" вставляється в текст при натисканні комбінації клавіш Ctrl + (-);
• перемикання режимів введення тексту Вставка / Заміна здійснюється при натисканні клавіші Insert (якщо в меню Сервіс - Параметри - Редагування не встановлений перемикач Використання клавіші Ins для вставки);
• текст при наборі вводиться там, де блимає курсор;
• для позиціонування курсора необхідно клацнути мишею в потрібному місці або використовувати клавіші управління курсором;
• для видалення символу використовувати клавішу Delete (віддаляється символ за курсором) або клавішу Backspace (віддаляється символ перед курсором).
program xxx;
var i, k, d, e, s : integer;
begin
k:=0;
for i:= 10 to 99 do
begin
d:= i div 10;
e:= i mod 10;
s:=d + e;
if i mod s = 0 then k:=k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end..