|
|
| Другие темы раздела | |
|
Pascal ABC Четные заменить на нечетные var i, j, m, n: byte; fact, S: real; begin writeln('Введите целые положительные числа m и n (m < n):'); readln(m, n); S := 0; //начальное значение суммы факториалов чктных чисел ... var i, j, m, n: byte; fact, S: real; begin repeat writeln('Введите целые положительные числа m и n (m < n):'); readln(m, n); until(m>0)and(n>m); S := 0; //начальное значение суммы... |
Pascal ABC Дана матрица размера M × N (M и N — четные числа). Поменять местами левую верхнюю и правую нижнюю четверти матрицы Дана матрица размера M × N (M и N — четные числа). Поменять местами левую верхнюю и правую нижнюю четверти матрицы. https://www.cyberforum.ru/pascal/thread600364.html https://www.cyberforum.ru/ pascalabc/ thread2446992.html |
|
Pascal ABC Задача про справочник Один из двух телефонных справочников содержит N номеров телефонов, установленных в первом корпусе предприятия , второй M номеров телефонов, установленных во втором корпусе. И в том и в другом... Смотрите в Поиске на тему "Сортировка слиянием". Например https://www.cyberforum.ru/pascal/thread33243.html |
Pascal ABC Написать программу для вычисления произведения
https://www.cyberforum.ru/ pascalabc/ thread2447571.html Написать программу для вычисления произведения P=\prod_{i=1}^{21}(i+0.01) Опечатка. Должно бытьp:=p*(i+0.01);Ещё в программе есть вывод данных, не требующийся по заданию. По заданию будет так:var p: real; i: integer; begin p := 1; for i := 1 to 21 do p := p... |
| Pascal ABC Дан вектор с n элементов, вычислить количество четных элементов, которые расположены на нечетных позициях дано вектор с n элементов, вычислить количество парных элементов, которые расположены на непарных позициях pascal https://www.cyberforum.ru/ pascalabc/ thread2447292.html |
Чему будет равно значение n после работы подпрограммы? Pascal ABC Здравствуйте! не могли бы Вы помочь с задачками по Пааскалю. 1.Задана подпрограмма. Чему будет равно значение n после работы подпрограммы, при входном значении n=529? procedure num(var n:... Программа завершится аварийно, поскольку число 529 не поместится в тип byte. Если исправить типы всех переменных, например, на integer, то процедура вернёт число с обратным порядком следования цифр,... |
|
Дан текст, хранящийся в текстовом файле. Подсчитать количество согласных букв в предпоследней строке Pascal ABC Дан текст, хранящийся в текстовом файле. Подсчитать количество согласных букв в предпоследней строке. var f: text; s, st: string; i, k: integer; begin assign(f, 'text.txt'); reset(f); while not eof(f) do begin |
Pascal ABC Записать в файл заданную последовательность
https://www.cyberforum.ru/ pascalabc/ thread2447191.html Последовательность x1, x2, ... образована по закону xi=(i-0.1)/(i3+|tg2i|) (i = 1, 2, ...). Дано действительное \varepsilon>0. Записать в файл h члены последовательности x1, x2, ..., остановившись... i3 понял как i3. function f(i:integer):real; begin f:=(i-0.3)/(i*i*i+abs(sin(2*i)/cos(2*i))); end; var h:text; e,x:real; i:integer; begin e:=0.001; |
| Pascal ABC Написать программу для вычисления произведения Написать программу для вычисления произведения P=\prod_{i=1}^{17}\frac{i}{\sqrt{i^3+1}} WildDen, неверно. Правильно, например, так:var p: real; i: integer; begin p := 1; for i := 1 to 17 do p := p * i / sqrt(i * i * i + 1); write('p = ', p) end. https://www.cyberforum.ru/ pascalabc/ thread2447570.html |
Pascal ABC Записать в новый файл заданные символы исходного файла Дан символьный файл f. Записать в файл g с сохранением порядка следования те символы файла f, вслед за которым в этом файле идет буква а. var f,g:file of char; a,b:char; i:byte; begin randomize; assign(f,'fileF'); rewrite(f); for i:=1 to 100 do begin a:=chr(97+random(26)); |
| Pascal ABC Составить процедуры: Ввод уравнения кривой в матричном виде, вывод уравнения кривой в индексном виде из матричного Кривая второго порядка задана в матричном виде: 𝑎11𝑎12𝑎13𝑎21𝑎22𝑎23𝑎31𝑎32𝑎33 тип-двумерный вещественный массив размером 3*3, где a11x2+2a12xy+a22y2+2a13x+2a23y+a33=0. Составьте процедуры для... https://www.cyberforum.ru/ pascalabc/ thread2446375.html | Pascal ABC Написать программу для вычисления произведения Написать программу для вычисления произведения P=3.05\prod_{k=1}^{15}\frac{\sqrt{k^3+1}}{k^2+1} Всегда пожалуйста:good: https://www.cyberforum.ru/ pascalabc/ thread2447568.html |
|
Почетный модератор
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
| 05.05.2019, 19:10 | 0 |
Найти произведение 20 первых простых чисел - Pascal ABC - Ответ 1354647605.05.2019, 19:10. Показов 10852. Ответов 15
Метки (Все метки)
Ответ 
Сообщение от Пс
Вернуться к обсуждению: Найти произведение 20 первых простых чисел Pascal ABC
0
|
|
| 05.05.2019, 19:10 | |
|
Готовые ответы и решения:
15
Найти сумму и произведение 15 простых чисел
|
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 05.05.2019, 19:10 | |
|
Помогаю со студенческими работами здесь
0
Найти произведение первых 5 нечетных натуральных чисел, не превосходящих N
Функции: Найти произведение первых n простых чисел Найти k первых простых чисел
|
Новые блоги и статьи
|
||||
|
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
|
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
|
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
|
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
|
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
|
|
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
|
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
|
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
|
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
|
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
|
Наверх