С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Определить сумму членов последовательности, начиная с заданного номера Разработать программу для заполнения типизированного файла числами арифметической последовательности с первым элементом равным 3, и разностью 1.5, число компонент выбирается по желанию пользователя. Определить сумму членов последовательности, начиная с заданного номера. https://www.cyberforum.ru/ turbo-pascal/ thread524446.html Выбросить из записи числа цифры от k1 до k2, оставив прежним порядок его остальных цифр. Turbo Pascal
Дано натуральное число N. Выбросить из записи числа цифры от k1 до k2, оставив прежним порядок его остальных цифр. Например, при k1=1, k2=5 из числа N будут удалены цифры от 1 до 5, возьмем число 59015518 – должно получиться 908. Если можете,то приложите пожалуйста блок-схему алгоритма.
Turbo Pascal множества в Паскале 1)Дан текст сформировать множество со гласных букв. https://www.cyberforum.ru/ turbo-pascal/ thread524398.html Turbo Pascal Преобразование текста Помогите https://www.cyberforum.ru/ turbo-pascal/ thread524370.html
Выяснить, является ли слово палиндромом Turbo Pascal
написать программу , с помощью которой можно проверить является ли заданное слово словом-"оборотнем". Например, "maam" является словом-"оборотнем", а "mama" - нет. помогите очень прошу!
Turbo Pascal Определение делителей заданного натурального числа составить програму для определения делителей заданного натурального числа n. помогите пожалуста! https://www.cyberforum.ru/ turbo-pascal/ thread524310.html
Turbo Pascal Сортировать строки матрицы по возрастанию Составить программу, которая сортирует элементы каждой строки матрицы С(9,10) по возрастанию відсортувати елементи кожного рядка матриці С(9,10) за зростанням https://www.cyberforum.ru/ turbo-pascal/ thread524288.html Найти три целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора: a2 + b2 = c2. Turbo Pascal
10. Найти три таких целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора: a2 + b2 = c2.
Turbo Pascal 5. Определить десятичный эквивалент целого положительного двоичного числа К. https://www.cyberforum.ru/ turbo-pascal/ thread524267.html
6. Определить двоичный эквивалент целого положительного десятичного числа N. 5. Определить десятичный эквивалент целого положительного двоичного числа К.
Turbo Pascal Записи. Файлы прямого доступа. Вывести абитуриентов, набравших меньше 12 баллов Составить файл с именем ABITUR, состоящий из данных по сдаче экзаменов абитуриентами. Указать для каждого абитуриента его код и оценки по трем вступительным экзаменам (записи). Исключить из файла элементы, относящиеся к абитуриентам, которые набрали меньше 12 баллов, использовать прямой доступ к элементам файла. Вывести на экран измененный файл ABITUR и новый с именем ICKL, с данными... https://www.cyberforum.ru/ turbo-pascal/ thread524262.html
Turbo Pascal Присвоить переменной К значение 1, если два числа из трех чисел x, y, z являются положительными и кратными 3, и значение 0 в противном случае
1. Присвоить переменной К значение 1, если два числа из трех чисел x, y, z являются положительными и кратными 3, и значение 0 в противном случае
Turbo Pascal Кубик Помогите с программой. Грани кубика разбиты на клетки 5 на 5 каждая из клетка выкрашеная в белый или синий цвет . Переход из клетки в клетку допускается только через общую сторону при условии совпадения цветов этих клеток. Построить маршрут перехода из одной заданной клетки в другую заданую клетку этого же цвета. Я написал программу на разделив ее на 3 стороны и в место цвета там 0 и 1. uses... https://www.cyberforum.ru/ turbo-pascal/ thread524240.html
4311 / 1422 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
22.03.2012, 20:06 0

Составте программу вычисления суммы квадратов составных чисел, лежащих в интервале (m,2m-1).Решить с использованием процедуры. - Turbo Pascal - Ответ 2824390

22.03.2012, 20:06. Показов 1286. Ответов 4
Метки (Все метки)

Ответ

Вот с процедурой:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var m,sum: integer;
 
procedure Sost(m:integer; var sum: integer);
var i,j,k: integer;
begin
 for i:=m to 2*m-1 do
  begin
   k:=0;
   for j:=2 to round(sqrt(i)) do
    if (i mod j)=0 then
    k:=k+1;
    if k<>0 then
     begin
      sum:=sum+(sqr(i));
      write(i,' ');
     end;
   end;
end;
 
begin
 clrscr;
 write('m: ');
 readln(m);
 writeln('Интервал: [',m,';',2*m-1,']');
 sost(m,sum);
 writeln('Сумма = ',sum);
 readln;
end.


Вернуться к обсуждению:
Составте программу вычисления суммы квадратов составных чисел, лежащих в интервале (m,2m-1).Решить с использованием процедуры. Turbo Pascal
1
Заказать работу у эксперта
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.03.2012, 20:06
Готовые ответы и решения:

Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)
с использованием функций

Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)
Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

Составьте программу вычисления суммы квадратов простых чисел,лежащих в интервале (M,N)
Составьте программу вычисления суммы квадратов простых чисел,лежащих в интервале (M,N) Помогите...

Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)
Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

4
22.03.2012, 20:06
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.03.2012, 20:06
Помогаю со студенческими работами здесь

Вычисление суммы квадратов простых чисел, лежащих в заданном интервале (процедуры и функции)
Требуется помощь в написании программы по поставленной задаче. Суть такова: &quot;Напишите программу...

Функция вычисления суммы квадратов простых чисел, лежащих в заданном интервале
Составить программу вычисления суммы квадратов простых чисел, лежащих в интервале (M, N).

Составить программу вычисления суммы простых чисел , лежащих в интервале (Т;2Т-1) , Т>2.
помогите,пожалуйста задачу решить на паскале. нужно с помощью процедур\функций. Составить...

Вычисление суммы квадратов простых чисел, лежащих в заданном интервале
Составить программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b]
1.Составить программу вычисления суммы квадратов чётных чисел из промежутка .

Составить программу вычисления суммы квадратов целых чисел от 1 до 30, кратных 7
Составить программу вычисления суммы квадратов целых чисел от 1 до 30, кратных 7.

0
Новые блоги и статьи
Как создавать приложения для iOS/iPhone
InfoMaster 12.01.2025
Введение в разработку iOS-приложений Разработка приложений для iOS открывает огромные возможности в мире мобильных технологий. С каждым годом количество пользователей iPhone и iPad растет,. . .
Как использовать Kotlin в Android разработке
InfoMaster 12.01.2025
Язык программирования Kotlin, разработанный компанией JetBrains, стал неотъемлемой частью современного мира Android-разработки. Первоначально представленный в 2011 году, Kotlin был официально. . .
Использование Go (Golang) в backend разработке
InfoMaster 12.01.2025
Язык программирования Go (Golang), разработанный компанией Google, стал важным инструментом для разработчиков программного обеспечения, особенно в области бэкенд-разработки. С момента своего. . .
Как работать с Laravel в PHP
InfoMaster 12.01.2025
Введение в Laravel Laravel представляет собой современный PHP-фреймворк с открытым исходным кодом, который значительно упрощает и ускоряет процесс разработки веб-приложений. Этот фреймворк был. . .
Как программировать под HCL Notes и создавать свои продукты на ее основе
InfoMaster 11.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой мощную платформу для разработки корпоративных приложений, которая сочетает в себе функции электронной почты, календаря,. . .
Как работать с SVN (Subversion)
InfoMaster 11.01.2025
Введение Система контроля версий является неотъемлемой частью современного процесса разработки программного обеспечения. Она обеспечивает управление изменениями в коде, позволяет отслеживать. . .
Использование GraphQL в JavaScript
InfoMaster 11.01.2025
Введение в GraphQL и его преимущества В современной разработке веб-приложений эффективный обмен данными между клиентом и сервером играет ключевую роль. GraphQL представляет собой язык запросов и. . .
Администрирован­­­­ие Git, продвинутые техники работы с Git
InfoMaster 11.01.2025
Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .
Что такое HCL Notes и как с ним работать
InfoMaster 10.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .
Как работать с Git из Windows и Visual Studio
InfoMaster 10.01.2025
Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python
InfoMaster 10.01.2025
Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .
Отличия абстрактного класса от интерфейса
InfoMaster 10.01.2025
В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru