Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Free Pascal Циклы с параметром: Выдать на печать сумму чисел, больших 100 Помогите решить задачку) Ввести 85 значений переменной A. Выдать на печать сумму чисел, больших 100 и сами числа. https://www.cyberforum.ru/ free-pascal/ thread700908.html Free Pascal Разработать базу данных «Администратор железнодорожных касс»
Разработать базу данных «Администратор железнодорожных касс» (номер поезда, пункты и время отправления и прибытия). Вывести на экран данные о поездах, следующих до Екатеринбурга. Добавлено через 57 минут Тему офф, сам догадался)
Free Pascal Обнулить элементы массива, расположенные между его минимальным и максимальным элементами Дан массив размера N.Обнулить элементы массива,расположенные между его минимальным и максимальным элементами(не включая минимальный и максимальный элементы).Задачу решить для N=10.Решение оформить в виде процедуры. https://www.cyberforum.ru/ free-pascal/ thread700802.html Free Pascal Рекурсия: вычислить сумму ряда https://www.cyberforum.ru/ free-pascal/ thread700727.html
Помогите, пожалуйста, составить формулу для рекурсии :(я не понимаю, как это делается, ряд написала, в принципе понимаю, как из предыдущего получить следующий, (умножить на минус 1, на х квадрат и разделить на 9) но как это связать с коэффициентом к не понимаю :cry: \sum_{n=0}^{\infty}{(-1)}^{n}\frac{{x}^{2n+1}}{{9}^{n+1}}
Free Pascal Вычислить значение функции
Вычислить значение функции и распечатать в виде таблицы x, y y=\sum_{1}^{8}\frac{2i-1}{{3}^{i}}{e}^{x} Вычисления выполнить для равноотстоящих значений х из интервала с шагом x=0,05
Free Pascal Вычислить значение выражения https://www.cyberforum.ru/ free-pascal/ thread700629.html
Всем привет помогите решить задачку пожалуйста. Даны действительные числа a1...a20. Найти сумму значений |ai-aj| (1<=i<j<=20) и распечатать Заранее спасибо)
Free Pascal Самый большой прямоугольник Привет всем, помогите сделать программы на паскале, а то я больше с С++ на "ты". Задачи с олимпиады, нужно срочно. Спасибо заранее. А вот и сами задачи: 4. Problem J-Самый прямоугольник самый прямоугольник Time limit: 1 s Memory limit: 64 M Задали квадрат с координатами вершин (0, 0), (0, 100), (100, 100), (100, 0). В квадрате расположены N точек с известными целочисленными координатами. https://www.cyberforum.ru/ free-pascal/ thread700464.html Free Pascal Двоякие цифры
Привет всем, помогите сделать программы на паскале, а то я больше с С++ на "ты". Задачи с олимпиады, нужно срочно. Спасибо заранее. А вот и сами задачи: 1. Problem G-Двоякие числа двоякие числа Time limit: 1 s Memory limit: 64 M Натуральное число называется двояким, если в его десятичной записи встречается ровно две разные цифры. Например, числа 23, 100, 12121 - двоякие, а числа 3, 33,...
Free Pascal Искаженные предложения https://www.cyberforum.ru/ free-pascal/ thread700455.html
Привет всем, помогите сделать программы на паскале, а то я больше с С++ на "ты". Задачи с олимпиады, нужно срочно. Спасибо заранее. А вот и сами задачи: 3. Problem I-Искаженные предложения искаженные предложения Time limit: 1 s Memory limit: 64 M Как известно, все мы очень не любим однообразия. Ученики 9-Б класса придумали себе новую игру - они теперь в своих записках и SMS-ках пишут...
Free Pascal Найти k-ю цифру последовательности, сформированной из записанных подряд натуральных чисел https://www.cyberforum.ru/ free-pascal/ thread700451.html
Привет всем, помогите сделать программы на паскале, а то я больше с С++ на "ты". Задачи с олимпиады, нужно срочно. Спасибо зарание. А вот и сами задачи: 2. Problem H-Числовой цепь Последовательность натуральных чисел Time limit: 1 s Memory limit: 64 M Для заданного натурального числа k, не превышает 30000, найти k-ю цифру последовательности, сформированной из записанных подряд...
динамические структуры. двусвязный список Free Pascal
В динамической памяти создать двусвязный список из слов. Предусмотреть вывод всех данных, вставку после заданного элемента. Перед завершением программы очистить динамическую память.
Free Pascal шифровка текста перемешанным алфавитом https://www.cyberforum.ru/ free-pascal/ thread700405.html
Каждую букву шифруемого текста заменяют на другую букву (её шифр) Таблица соответствия букв и их шифров называется перемешанным алфавитом. Дан русский текст, перемешанный алфавит (т.е. строка с переставленными буквами алфавита, в перемешанном порядке). Зашифровать и расшифровать текст с помощью перемешанного алфавита. Помогите пожалуйста неразвитому человеку))) буду очень благодарна, ребят!
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
18.11.2012, 14:24 0

Итерационные циклы: Увеличивать число в 2 раза, пока квадратный корень из числа не будет больше 10 - Free Pascal - Ответ 3716303

18.11.2012, 14:24. Показов 1108. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено ilyagerasimov как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var
  n: Integer;
BEGIN
Write('Введите число: '); Readln(n);
While Sqrt(n)<=10 do
n:=n*2;
Writeln('Число ',n,' Корень = ',Sqrt(n):2:2);
Readln
END.


Вернуться к обсуждению:
Итерационные циклы: Увеличивать число в 2 раза, пока квадратный корень из числа не будет больше 10 Free Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2012, 14:24
Готовые ответы и решения:

Увеличивать введенное число в два раза до тех пор, пока оно не станет больше 1000
1 задача:Ввести число a(0&lt;a&lt;10).Увеличивать его в два раза до тех пор,пока оно не станет больше...

Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа
Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного...

Вводить числа, пока не будет введено число, по модулю больше 5. Найти произведение чисел.
код и коменты к нему Написать программу, которая будет вводить числа и считать их произведение...

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

1
18.11.2012, 14:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2012, 14:24
Помогаю со студенческими работами здесь

Если квадратный корень числа "а", больше числа "б", то увеличить число "б" на 5
Задача такова: Есть число &quot;а&quot; и число &quot;б&quot;. Если квадратный корень числа &quot;а&quot;, больше числа &quot;б&quot;,...

Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз
Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увличить второе...

Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз
74. Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить...

Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз
Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз....

Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз
3)2. Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить...

Будет ли число десятков больше, чем число едениц в 2 раза
1. В двузначном числе определить : будет ли число десятков больше, чем число едениц в 2 раза 2....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru