Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > 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 (деревья равны, если ключи и записи вершин одного дерева равны соответственно ключам и записям...
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,515
Записей в блоге: 1
22.10.2012, 15:38 0

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

22.10.2012, 15:38. Показов 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

Var i,j,s,min,imax,k:integer;
Begin
    writeln('-----------------');
    writeln('Число | ','Делители ');
    writeln('-----------------');
    min:=10000;
    For i:=280 to 300 do
    Begin
      s:=1+i;
      k:=2;
      write(i:4,'|':1,1:4);
      For j:=2 to i div 2 do
       if i mod j = 0 then
       Begin
         inc(s,j);
         write(j:4);
         inc(k);
       End;
      if (k<=min)and(i>imax) then
      Begin
        min:=k;
        imax:=i;
      End;
      write(i:4);
      writeln;
      writeln('Сумма делителей: ',s);  
    End;
    writeln('Max число с min кол-ом делителей: ',imax);
End.


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

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

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

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

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

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

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

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

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

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

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