|
|
|
| Другие темы раздела | |
|
Pascal ABC Найти значение функции
https://www.cyberforum.ru/ pascalabc/ thread1235821.html var x,y:real; begin read(x); x:=abs(x); if x<3 then y:=x+((SQR(x)-25)/3); |
Найти N-e число Фибоначчи Pascal ABC Последовательностью Фибоначчи называется последовательность чисел a0, a1, ..., an, ..., где a0 = 0, a1 = 1, ak = ak-1 + ak-2 (k > 1). Входные данные: Во входном файле записано целое число N (0 ≤ N ≤ 32). Выходные данные: В выходной файл выведите N-е число Фибоначчи. Пример входного файла (input.txt): 4 Пример выходного файла (output.txt): |
| Pascal ABC Написать программу, которая подсчитает количество совпадающих картинок после остановки всех трех дисков Однажды начинающий программист Иннокентий решил написать программу, имитирующую однорукого бандита. Как читателю известно, это игровой автомат, в котором некоторое время вращаются 3 игровых дисках. Через какое-то время они останавливаются и выигрыш игрока зависит от количества совпавших картинок на центральном табле. Иннокентий никак не мог разобраться, как подсчитать количество одинаковых... https://www.cyberforum.ru/ pascalabc/ thread1235748.html | Pascal ABC Определить, сколько голов через T часов останется у змея Горыныча Илья Муромец, собрался биться со змеем Горынычем. До начала боя у Горыныча было G голов. Илья Муромец в первый час срубил одну голову, но на ее месте выросло 3 новых. Каждый последующий час богатырю удавалось срубить в двое больше голов, чем в предыдущий, но как и раньше, на месте каждой срубленной головы выростало 3 новых. Сколько голов через T часов останется у змея Горыныча. Входные данные:... https://www.cyberforum.ru/ pascalabc/ thread1235734.html |
|
Pascal ABC Требуется посчитать сумму целых чисел от 1 до N Требуется посчитать сумму целых чисел от 1 до N. Входные данные: В единственной строке входного файла INPUT.TXT записано единственное целое число N, не превышающее по абсолютной величине 10000. Выходные данные: В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число - сумму чисел от 1 до N. Пример входного файла (input.txt): 5 Пример выходного файла... |
Pascal ABC Определите, возможно ли детям сесть так, чтобы рядом с одной девочкой сидел как минимум один мальчик
https://www.cyberforum.ru/ pascalabc/ thread1235679.html X девочек и Y мальчиков пошли в кинотеатр и купили билеты на один ряд. Определите, возможно ли детям сесть так, чтобы рядом с одной девочкой сидел как минимум один мальчик и рядом с одним мальчиком сидела хотя бы одна девочка. вроде правильно var q, w: integer; e: boolean; r: Text; begin Assign(r,'input.txt'); Reset(r); Readln(q,w); |
|
Pascal ABC Является ли заданное целое трехзначное число симмитричным относительно средней цифры
https://www.cyberforum.ru/ pascalabc/ thread1235595.html Проверить, является ли заданное целое трехзначное число симмитричным, относительно средней цифры. |
Вычислить корень квадратный суммы двух заданных вещественных чисел Pascal ABC Вычислить корень квадратный суммы двух заданных вещественных чисел a и b. Входные данные: Во входном потоке в первой строке задано два положительных вещественных числа. Выходные данные: Вывести в выходной поток одно вещественное число с точностью три знака после запятой. Пример входного файла (input.txt): 5.5 2.5 Пример выходного файла (output.txt): |
| Pascal ABC На сколько зарплата самого высокооплачиваемого сотрудника отличается от самого низкооплачиваемого В отделе работают 3 сотрудника, которые получают заработную плату в рублях. Требуется определить: на сколько зарплата самого высокооплачиваемого из них отличается от самого низкооплачиваемого. https://www.cyberforum.ru/ pascalabc/ thread1235588.html | Pascal ABC Вывести значение каждого третьего четного элемента последовательности, начиная с первого Вывести значение каждого третьего четного элемента последовательности, начиная с первого (через два четных элемента). Входные данные: Во входном потоке в первой строке через пробел перечислены значения элементов целочисленной последовательности. Признаком окончания последовательности является число ноль. Сам ноль не является элементом последовательности. Значения элементов последовательности... https://www.cyberforum.ru/ pascalabc/ thread1235586.html |
|
Pascal ABC Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле a:=10*sin(N+i*i). Элементы массива нумеруются с единицы. Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R с центром в начале координат, если значения элементов А и А - координаты первой точки, элементов А и А - второй точки и т. д. |
Pascal ABC Вычислить значение выражения: найти ошибку
https://www.cyberforum.ru/ pascalabc/ thread1235413.html не вижу ошибки var r,a,x,b:integer; begin read(a,b,x); r:=(sin/cos)*(sin/cos)*((0.9*a*a)/(x*(a+b))); write(r); end. |
|
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
| 29.07.2014, 14:46 | 0 |
Вычислить количество элементов числовой последовательности, в записи значения которых есть только одна цифра 5 - Pascal ABC - Ответ 647179129.07.2014, 14:46. Показов 2694. Ответов 6
Метки (Все метки)
Ответ
некит434, Еще раз выложишь код, не выделенный тегами , буду удалять темы, мне надоело вытирать твои сопли.
Вернуться к обсуждению: Вычислить количество элементов числовой последовательности, в записи значения которых есть только одна цифра 5 Pascal ABC
0
|
|
| 29.07.2014, 14:46 | |
|
Готовые ответы и решения:
6
Вывести элементы числовой последовательности, в записи значения которых содержится только одна цифра 5
Вычислить сумму элементов числовой последовательности, в записи значения которых содержится цифра 5 |
| 29.07.2014, 14:46 | |
| 29.07.2014, 14:46 | |
|
Помогаю со студенческими работами здесь
0
Вывести элементы числовой последовательности, в записи значения которых содержится цифра 5
Вычислить среднее арифметическое значение элементов числовой последовательности, в записи значения которых содержится две различные цифры |