Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Даны два числа от -1000 до 1000, каждое число записано в отдельной строке. Выведите сумму этих чисел Заранее благодарю за решение. Даны два числа от -1000 до 1000, каждое число записано в отдельной строке. Выведите сумму этих чисел. https://www.cyberforum.ru/ pascalabc/ thread716040.html Для праздничного чаепития необходимо купить n пирожных. В магазине продается всего два вида пирожных одного вида, причем пирожных одного вида осталось Pascal ABC
Для праздничного чаепития необходимо купить n пирожных. В магазине продается всего два вида пирожных одного вида, причем пирожных одного вида осталось a штук, а пирожных другого вида осталось b штук....
Pascal ABC Задача C Чехарда За решение заранее спасибо Дорожка замощена плитками в один ряд, плитки пронумерованы числами от 1 до 1000. На плитках с номерами A,B, И C(A<B<C) сидят три кузнечика, которые играют в чехарду по... https://www.cyberforum.ru/ pascalabc/ thread716024.html Pascal ABC задача B Переливания Может решит кто? Буду благодарен! Имеется 10 колб с водой и известен объем воды в каждой из них. За одно "касание" можно взять одну колбу и часть воды(или всю воду) из этой колбы разлить по одной... https://www.cyberforum.ru/ pascalabc/ thread716022.html
Pascal ABC Задача A Пирожные
Решите пожалуйста! Буду благодарен! Для праздничного чаепития необходимо купить n пирожных. В магазине продается всего два вида пирожных, при чем пирожных одного вида осталось a штук, а пирожных...
Pascal ABC В массиве подсчитать сумму четных и произведение нечетных https://www.cyberforum.ru/ pascalabc/ thread716019.html
Дан массив D(30) цел. типа. Подсчитать сумму четных и произведение нечетных
Pascal ABC Обработка текста Дан текст. Выведите все слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все предыдущие вхождение последней буквы; оставить в слове только первые вхождения... https://www.cyberforum.ru/ pascalabc/ thread716012.html Pascal ABC Колбы
Имеется 10 колб с водой и известен объем воды в каждой из них. За одно "касание" можно взять одну колбу и часть воды (или всю воду) из этой колбы разлить по одной или несколькими другими колбам в...
Pascal ABC Воспользовавшись процедурой нужно вычеслить Помогите написать программу к задаче пожалуйста p-максимальный элемент массива х к-максимальный элемент массива y https://www.cyberforum.ru/ pascalabc/ thread715896.html Pascal ABC Определить произведение положительных элементов массива Напишите пожалуйста программу к задаче: Ввести определить произведение положительных элементов массива.Вывести на экран матрицу и результат вычисления. https://www.cyberforum.ru/ pascalabc/ thread715894.html
Полярная система координат. Декартова система координат Pascal ABC
Доброго времени суток, уважаемые. У меня тут есть небольшая проблема, которую я разделю на два пункта, если вы не против. 1) Графики функций в PascalABC. Теория, практика, всё-всё-всё :) 2)...
Pascal ABC Описать процедуру EQUAL(T1,T2), проверяющую на равенство 2-3–деревья Т1 и Т2 https://www.cyberforum.ru/ pascalabc/ thread715823.html
Может кто сможет написать? Описать процедуру EQUAL(T1,T2), проверяющую на равенство 2-3–деревья Т1 и Т2 (деревья равны, если ключи и записи вершин одного дерева равны соответственно ключам и записям...
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
03.12.2012, 02:20 0

Работа с циклическими конструкциями. Найти сумму делителей каждого из целых чисел от 300 до 320 - Pascal ABC - Ответ 3792656

03.12.2012, 02:20. Показов 2643. Ответов 3
Метки (Все метки)

Ответ

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
const l='--------------------------------------------------------------------------';
      s='| Число |                     Делители                         |  Сумма  |';
var i,j,kd,sum,minsum,min: integer;
    ns: boolean;
 
begin
writeln(l);
writeln(s);
writeln(l);
for i:=300 to 320 do
    begin
    kd:=0; ns:=false; sum:=0;
    write('|',i:5,'  | ');
    for j:=2 to i div 2 do
        if i mod j=0 then
           begin
           inc(kd); inc(sum,j);
           if kd mod 13=0 then
              begin
              writeln('|         | ':16);
              write('|       | ');
              ns:=true;
              end;
           write(j:3,',');
           end;
    if ns then for j:=1 to 12-(kd mod 13) do write('    ')
       else for j:=1 to 13-(kd mod 13) do write('    ');
    writeln('|',sum:6,'|':4);
    if i=300 then
       begin
       min:=300;
       minsum:=sum;
       end else
       if (kd>0) and (sum<minsum) then
          begin
          min:=i;
          minsum:=sum;
          end;
    end;
write(l);
readln;
writeln('Минимальная сумма делителей (',minsum,') у числа ',min);
end.


Вернуться к обсуждению:
Работа с циклическими конструкциями. Найти сумму делителей каждого из целых чисел от 300 до 320 Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.12.2012, 02:20
Готовые ответы и решения:

Найти сумму делителей каждого из целых чисел
Найти сумму делителей каждого из целых чисел от 290 до 310. Вывести результат в виде следующей...

Найти сумму делителей каждого из целых чисел
Найти сумму делителей каждого из целых чисел от 480 до 500. Вывести результат в виде таблицы (с...

Найти сумму делителей каждого из целых чисел от 50 до 70
Задача такая: &quot;Найти сумму делителей каждого из целых чисел от 50 до 70&quot; И в этом коде у меня...

Работа с циклическими конструкциями.
Пожалуйста, помогите написать две задачки (Pascal Free)

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

Найти количество делителей каждого из целых чисел от 120 до 140
Найти количество делителей каждого из целых чисел от 120 до 140.

Найти количество делителей каждого из целых чисел от 120 до 140
Кто может помогите написать программу в паскале: 1)Найти количество делителей каждого из целых...

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

Найти количество делителей каждого из целых чисел от 480 до 500
Найти количество делителей каждого из целых чисел от 480 до 500. Вывести результат в виде таблицы...

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