Ответы на вопрос:
Var x, count, i: real; begin read(x); count : = 1; i : = 0; while(x > count) do begin count : = power(2, i + 1); i += 1; end; write(i * 3); end.
Популярно: Информатика
-
11 класс 1. обоснуйте, почему создание и развитие компьютерной техники можно отнести...
yanastywa200023.06.2020 10:23 -
Синформатикой! ввести слово. вывести на экран словосочетание,полученное слиянием...
маринчик1805.10.2022 13:23 -
Запишите следующие числа в 8-разрядном формате со знаком (отрицательные числа...
Polyak5608.02.2020 08:47 -
Яне совсем понимаю что надо делать....
sadpepeee14.06.2020 07:43 -
1. на какие две группы можно разделить представление целых чисел в компьютере?...
stasison28.06.2022 21:07 -
Дано натуральное число n. найдите цифру десятков в нём. формат входных данных...
николаj22.05.2021 18:11 -
2. Организовать одномерный массив А{2, 4, 8, …, 1024}. паскаль...
ромашка26113.08.2022 00:07 -
1)Базова алгоритмічна структура, призначена для організації багаторазового виконання...
sinethu12.02.2022 11:44 -
Составить программу вычисления выражения Паскаль...
RasDua26.11.2022 18:02 -
Паскаль в массиве 1. Составьте программу, задающую одномерный массив целых чисел...
прорппп23.10.2021 03:50