Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC работа с текстовым файлом https://www.cyberforum.ru/ pascalabc/ thread264101.html существует текстовый файл, содержащий сведения о спортсменах. из заданного списка спортсменов распечатать сведения о тех из них, кто занимается плаванием, указать возраст, сколько лет занимаются спортом и фамилию самого старшего.	Разработать базу данных молочных продуктов Pascal ABC Не используя процедуру обработки файлов, разработать базу данных молочных продуктов, включающую: название товара, жирность, изготовителя, цену, дату изготовления. Осуществить поиск по любому полю.
Pascal ABC Найти и вывести номер третьего положительного элемента массива https://www.cyberforum.ru/ pascalabc/ thread264063.html 1) Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Опишите алгоритм, который находит и выводит номер третьего положительного элемента массива (если из массива вычеркнуть все неположительные элементы, этот элемент стоял бы в получившемся массиве на третьем месте). Если в массиве меньше, чем три положительных элемента, вывести сообщение об...	Pascal ABC Если сумма элементов массива больше нуля, то поменять местами первую и вторую его половины Написать алгоритм и программу, которые исходный числовой массив данных считывает из текстового файла f1, а выходную информацию записывает в текстовый файл f2. Если сумма элементов исходного массива больше нуля, то поменять местами первую и вторую половины исходного массива, иначе - не менять. Помогите исправить программу. program var5; const n=10; type mas=array of integer; var... https://www.cyberforum.ru/ pascalabc/ thread264060.html
Pascal ABC Как откомпилировать приложение У меня два вопроса: 1) можно ли в паскале графически оформлять программы (если можно то скажите на какую кнопку жать) 2)можно ли файлы из расширения pas в разширение ехе переводить (если можно то скажите на какую кнопку жать)? Если что то вот прога (в абс писаная): program Uravnenie; var a,b,c,d,e,f,g,l: real; begin writeln('Я апредставляю программу решения квадратных...	Pascal ABC Исправте программу!!! https://www.cyberforum.ru/ pascalabc/ thread264053.html Вот не магу написать программу !!! Точнееенаписал но она не работает!!! Задание в теме напишите программы с массивом!!! uses crt; var i , b : integer; A: array of integer; begin readln (b); begin for i:=1 to 9 do begin
Pascal ABC Преобразовать введенное с клавиатуры дробное число в денежный формат https://www.cyberforum.ru/ pascalabc/ thread263997.html Спроектировать форму, содержащую визуальные компоненты для ввода исходных данных и отображения результата, и составить программу для следущего задания: преобразовать введенное с клавиатуры дробное число в денежный формат. Например, число 12,5 должно быть преобразовано к виду 12 руб. 50 коп.	Найти наименьшее целое положительное число К, квадрат которого превосходит N Pascal ABC Дано целое число N>0. Найти наименьшее целое положительное число К, квадрат которого превосходит N: K*K > N. Функции извлечения квадратного корня не использовать. Пример N = 681 K = 27
Pascal ABC Вывести элементы массива в заданном порядке https://www.cyberforum.ru/ pascalabc/ thread263979.html Дан массив A рамзера N.Вывести его элементы в следующем порядке: A1,An,A2,An-1,A3,An-2	Pascal ABC Разветвляющиеся программы https://www.cyberforum.ru/ pascalabc/ thread263977.html В программе организуется цикл с признаком конца с помощью оператора While или Repeat. Метки и массивы не использовать. В конце программы выдать итог: сколько данных обработано. Предусмотреть реакцию на исключительные ситуации: отсутствие данных и ошибки в данных. Контрольный пример должен проверять все ветви программы. задание: Ввести рекордное значение надоя на одну корову. По каждому...
Не используя операции умножения и деления, найти количество отрезков В, размещенный на отрезке А Pascal ABC Даны положительные числа А и В (А>B). На отрезке длины А размешено максимальное возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти количество отрезков В, размещенный на отрезке А. Пример А = 28,12 В = 18,70 Количество отрезков: 1	Pascal ABC Не могу решить легкое задание по алгоритмам. (9кл.). https://www.cyberforum.ru/ pascalabc/ thread263951.html Решите пожалуйста) :read: Прикрепляю фото с заданиями: Спасибо заранее)

Puporev

Почетный модератор

64304 / 47599 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

26.03.2011, 09:32

Найти числа отрезка, суммы делителей которых больше заданного числа Х. - Pascal ABC - Ответ 1487762

26.03.2011, 09:32. Показов 2600. Ответов 1

Метки (Все метки)

Ответ

Pascal

Program z2_v2_l4;
uses crt;
Var a,b,x,m,i,p,s: Integer;
Begin
Writeln ('Ввести натуральный отрезок чисел [A, B]');
Readln (a,b);
Writeln ('Ввести число Х');
Readln (x);
writeln('Числа, сумма делителей которых больше ',x);
p:=0;
for m:=a to b do
 begin
  s:=0;
  for i:=1 to m do
  if(m mod i = 0) then s:=s+i;
  if(s>x) then
    begin
    write (m,' , ');
    p:=1;
    end;
 end;
if p=0 then write ('Таких чисел нет');
end.

Вернуться к обсуждению:
Найти числа отрезка, суммы делителей которых больше заданного числа Х. Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.03.2011, 09:32

Готовые ответы и решения:

Найти двухзначные числа, суммы цифр которых больше заданного числа Х
2. Найти двухзначные числа, суммы цифр которых больше заданного числа Х

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Найти те числа данного отрезка, суммы делителей которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

	26.03.2011, 09:32

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.03.2011, 09:32

Помогаю со студенческими работами здесь

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Найти числа, меньше 1000, сумма делителей (без самого числа) которых, больше данного числа
Найти числа, меньше 1000, сумма делителей(без самого числа) которых, больше данного числа. ...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть числа нечетные
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых есть числа...

Найти все трёхзначные натуральные числа, сумма цифр которых больше заданного числа N
ВЫВЕСТИ ВСЕ НАТУРАЛЬНЫЕ ТРЕХЗНАЧНЫЕ ЧИСЛА Ы КОТОРЫХ СУММА БОЛЬШЕ N Циклы Пожалуйста полностью...

Наверх