О максимальном потоке (алгоритмов с использованием программ вложенных циклов). в Pascal

@Максим1991 · Регистрация: 12.10.2009

Студворк — интернет-сервис помощи студентам

Люди добрые, отзовитесь!!!
Порядок выполнения работы:
1.Разработать алгоритм и представить его в виде блок - схемы;
2.Написать программу на языке программирования PASCAL;
3.Протестировать и отладить программу.
ЗАДАНИЯ:
№1 Найти все целые числа из промежутка от a до b, у которых количество
делителей равно k. Если таких чисел нет, то должно быть напечатано соответствующее сообщение.

№2 Составить программу нахождения цифрового корня натурального числа. Цифровой корень числа получается следующим образом. Складываем все цифры этого числа, затем все цифры найденной суммы и повторяем этот процесс до тех пор, пока в результате не будет получено однозначное число (цифра), которое и называется цифровым корнем данного числа.

@Puporev · 15.10.2009, 19:49

Цифровой корень
Цифровой корень

@Максим1991 · 15.10.2009, 19:57 **[ТС]**

А №1....?

@Давид · 15.10.2009, 20:06

Максим1991,

Найти все целые числа из промежутка от a до b, у которых количество
делителей равно k. Если таких чисел нет, то должно быть напечатано соответствующее сообщение.

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
VAR
 A, B, K, i, count: Longint;
BEGIN
 WriteLn('Число делителей больше К из промежутка от А до В');
 Write('Введите число A: '); ReadLn(A);
 Write('Введите число B: '); ReadLn(B);
 Write('Введите минимальное число делителей K: '); ReadLn(K);
 if A > B then begin
     WriteLn('Неправильный ввод: A > B');
     Halt(1)  {Прекращение работы с кодом ошибки}
 end;
 while A <= B do begin
   count := 0;
   {Небольшая проблема: 1 и само число считать делителями?
    Здесь считаются. Иначе нужно
    for i=2 to A-1 do ...}
   for i:= 1 to A do
   begin
     if A mod i = 0 then inc(count);
   end;
   if count = K then WriteLn(A,' - Число делителей: ',count);
   A := A + 1;
 end;
 if count = 0 then WriteLn('Таких чисел нет');
 WriteLn;
END.

Так надо было???

@Максим1991 · 15.10.2009, 20:42 **[ТС]**

Огромнейшее спасибо!!! Все так!!!

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Максим1991 0 / 0 / 0 Регистрация: 12.10.2009 Сообщений: 29

	О максимальном потоке (алгоритмов с использованием программ вложенных циклов). в Pascal 15.10.2009, 19:47. Показов 1734. Ответов 4 Метки нет (Все метки) Люди добрые, отзовитесь!!! Порядок выполнения работы: 1.Разработать алгоритм и представить его в виде блок - схемы; 2.Написать программу на языке программирования PASCAL; 3.Протестировать и отладить программу. ЗАДАНИЯ: №1 Найти все целые числа из промежутка от a до b, у которых количество делителей равно k. Если таких чисел нет, то должно быть напечатано соответствующее сообщение. №2 Составить программу нахождения цифрового корня натурального числа. Цифровой корень числа получается следующим образом. Складываем все цифры этого числа, затем все цифры найденной суммы и повторяем этот процесс до тех пор, пока в результате не будет получено однозначное число (цифра), которое и называется цифровым корнем данного числа. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.10.2009, 19:49
	Цифровой корень Цифровой корень 1

@Максим1991 0 / 0 / 0 Регистрация: 12.10.2009 Сообщений: 29
	15.10.2009, 19:57 [ТС]
	А №1....? 0

@Максим1991 0 / 0 / 0 Регистрация: 12.10.2009 Сообщений: 29
	15.10.2009, 20:42 [ТС]
	Огромнейшее спасибо!!! Все так!!! 0