Составить программу нахождения для заданного натурального числа всех делителей, кратных числу

@killmaster · Регистрация: 19.02.2010

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

1. Дан одномерный массив, состоящий из вещественных элементов.
Найти сумму элементов массива, расположенных до последнего положительного элемента.
2. Составить программу нахождения для заданного натурального числа всех делителей, кратных 3.
3. Составить программу нахождения для заданного натурального числа всех делителей, кратных 3 и 4.
4. Составить программу нахождения для заданного натурального числа всех делителей, кратных числу .
5. Составить программу нахождения для заданного натурального числа всех делителей, кратных натуральным числам и одновременно.
6. Составить программу нахождения суммы всех делителей заданного натурального числа , кратных 5.
(Само число и единица включаются в число делителей)

@mamedovvms · 04.03.2010, 09:06

есть на форуме раздел называется "Фриланс" там вам точно помогут, но только за денежку

@killmaster · 04.03.2010, 09:12 **[ТС]**

Сообщение от mamedovvms

есть на форуме раздел называется "Фриланс" там вам точно помогут, но только за денежку

Были бы деньги....я бы нашёл работу сам!!!Помогите пожалуйста,чем можете!!!!

@mamedovvms · 04.03.2010, 09:21

Pascal
1
2
3
4
5
6
7
8
9
10
2)for i:=1 to n div 2 do
 if(n mod i=0)and(i mod 3=0) then writeln(i);
3)for i:=1 to n div 2 do
 if(n mod i=0)and(i mod 3=0)and(i mod 4=0) then writeln(i);
4)for i:=1 to  n div 2 do
 if(n mod i=0)and(i mod p=0) then writeln(i);//p-число которое необходимо ввести
5)
sum:=1+n;
for i:=1 to n div 2 do
 if(n mod i=0)and(i mod 5=0) then sum:=sum+a[i];

@killmaster · 04.03.2010, 09:32 **[ТС]**

Спасибо большое!!!!!!!!Извините пожалуйста,а можно хотя бы 1 пример программы целиком?)

@Tom_Sawyer · 18.03.2010, 23:50

Сообщение от killmaster

1. Дан одномерный массив, состоящий из вещественных элементов.
Найти сумму элементов массива, расположенных до последнего положительного элемента.

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
uses сrt;
const
  N=5; {размер массива}
var
  a:array[1..N] of real;
  i,j:integer;
  sum:real;
begin
  сlrscr;
  j:=0;
  writeln('Исходный массив: ');
  for i := 1 to N do
   begin
    a[i] := random(21)-10;
    if a[i] > 0 then
    j := i;
    write(a[i],' ')
  end;
 writeln;
 sum:=0;
 for i:=1 to j-1 do
  sum := sum + a[i];
  writeln('Сумма: ',sum);
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@killmaster 0 / 0 / 0 Регистрация: 19.02.2010 Сообщений: 27

	Составить программу нахождения для заданного натурального числа всех делителей, кратных числу 04.03.2010, 09:01. Показов 11046. Ответов 5 Метки нет (Все метки) 1. Дан одномерный массив, состоящий из вещественных элементов. Найти сумму элементов массива, расположенных до последнего положительного элемента. 2. Составить программу нахождения для заданного натурального числа всех делителей, кратных 3. 3. Составить программу нахождения для заданного натурального числа всех делителей, кратных 3 и 4. 4. Составить программу нахождения для заданного натурального числа всех делителей, кратных числу . 5. Составить программу нахождения для заданного натурального числа всех делителей, кратных натуральным числам и одновременно. 6. Составить программу нахождения суммы всех делителей заданного натурального числа , кратных 5. (Само число и единица включаются в число делителей) 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	04.03.2010, 09:06
	есть на форуме раздел называется "Фриланс" там вам точно помогут, но только за денежку 1

@killmaster 0 / 0 / 0 Регистрация: 19.02.2010 Сообщений: 27
	04.03.2010, 09:32 [ТС]
	Спасибо большое!!!!!!!!Извините пожалуйста,а можно хотя бы 1 пример программы целиком?) 0