Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
rouberuplay
10.10.2020 00:21 •
Информатика
Составить функцию, которая определяет, сколько зерен попросил положить на n-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) пример: введите номер клетки: 28 на 28-ой клетке 134217728 зерен.
Показать ответ
Ответ:
57den16
08.07.2020 01:30
Function ChessCell(n:integer):int64;
var
i:integer;
k:int64;
begin
k:=1;
for i:=2 to n do k:=k*2;
ChessCell:=k
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
revernastyn
18.09.2022 01:53
Задача 4. Створити список з 10 випадкових елементів (від -10 до 10). Змінити знак для всіх елементів списку...
Vitalik1994
01.12.2022 00:39
Определите значение переменной s после выполнения фрагмента программы:...
mar2865
13.12.2021 14:59
Составите программу (Паскаль) Дан ряд из n чисел. Найти среднее арифметическое....
T0nystark
08.01.2021 12:56
Створити список з 10 випадкових елементів (від -10 до 10) і надрукувати його...
ХЕЕЕЛПАНИТЕ
27.11.2022 21:30
Напишите функцию, возвращающую знак числа, где аргументом является целое число. возвращаемый результат 0 - если аргумент равен нулю. -1если число отрицательное, 1 если число...
Аланк
25.07.2022 02:31
; break; }хелпп...
nyutadavdova200
09.04.2022 18:38
Составить алгоритмы для робота по известному маршруту при заиси алгоритмов обизательно используй команды начала и конец А В С информатика ...
Pygacev1959
15.04.2022 21:11
Задача 3. Створити список з 10 випадкових елементів (від -10 до 10). Надрукувати лише додатні з них Задача 4. Створити список з 10 випадкових елементів (від -10 до 10). Змінити...
15602218s1
29.05.2021 02:39
Житейский вопрос. Чё за file и можно ли их всех удалить???(те которые 4,51гб весят)...
polinasmi1
14.04.2022 02:30
расположите в порядке возрастания (сначала перевести все значения в 1 единицу измерения информатики-байты, а там, где имеется возможность написать результат со степенью числа...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i:integer;
k:int64;
begin
k:=1;
for i:=2 to n do k:=k*2;
ChessCell:=k
end;