Написать программу, которая определяет, является ли данное число совершенным

@_ЕГОР_ · Регистрация: 26.02.2010

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

1)
1. Дано натуральное число N. Написать программу, которая определяет, является ли данное число совершенным (Совершенное число равно сумме всех своих делителей, не превосходящих само число). Число N вводится с клавиатуры. На экран вывести все делители числа, их сумму и сообщение является ли число совершенным.
2. Написать программу вычисления суммы, где N=10
- http://i5.pixs.ru/thumbs/7/4/6... 533746.jpg (4)

2)
Вычислить и вывести на экран в виде таблицы значения функции, заданной графически , на интервале от хнач до хкон с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой. ( 5)
- http://i5.pixs.ru/storage/7/4/... 533748.png

3)
Вычислить сумму и разность двух одномерных массивов, содержащих 20 элементов. В массиве суммы найти максимальный элемент и его индекс, в массиве разности найти минимальный элемент и его индекс. Исходные массивы ввести при помощи случайных чисел. На экран вывести исходные массивы, массив суммы, массив разности и индексы максимального и минимального элементов. (8)

4)
Создать массив с элементами akn=n f ( k ) + sin ( k ) g (n), где k, n =1, 2, 3, 4;
- http://i5.pixs.ru/thumbs/8/3/8... 533838.jpg
Вывести его на экран в виде таблицы. Вычислить сумму отрицательных элементов массива. Найти максимальный элемент. (9)

5)
Определить список из 10 названий учебных дисциплин. Построить 5 множеств из различных элементов этого списка. Вывести на экран названия объектов, которые находятся во всех множествах одновременно. Вывести объекты, которые не входят ни в одно множество. Вывести объекты, которые входят в первое и четвертое множества, но не входят в третье.(11)
-
То что в красных скобках это пометка для себя.

@BumerangSP · 12.04.2012, 21:29

2)

Pascal

uses crt;
var i,n: integer;
    s: real;
 
function pow(x:real;n:integer):real;
var r:real;
    i:integer;
begin
r:=x;
for i:=1 to n-1 do r:=r*x;
pow:=r;
end;
    
begin
 clrscr;
 n:=10;
 s:=0;
 for i:=1 to n do
  s:=s+(pow(-1,i+1)*(sqr(i)*i-1/i));
 writeln('S = ',s:5:4);
 readln;
end.

Первое, кстати, довольно часто встречается на форуме. Впрочем, как и все остальное.

@КонецСвета · 12.04.2012, 23:30

Сообщение от _ЕГОР_

3)
Вычислить сумму и разность двух одномерных массивов, содержащих 20 элементов.

Pascal

uses crt;
const n=20;
var m1,m2,s,r: array [1..n] of integer;
    i,imax,imin:byte;
 
procedure PrintM(z:array [1..n] of integer);
var i:byte;
begin
for i:=1 to n do
    write(z[i]:4);
writeln;
end;
 
begin
imax:=1; imin:=1;
for i:=1 to n do
    begin
    m1[i]:=random(199)-99;
    m2[i]:=random(199)-99;
    s[i]:=m1[i]+m2[i];
    r[i]:=m1[i]-m2[i];
    if s[i]>s[imax] then imax:=i;
    if r[i]<r[imin] then imin:=i;
    end;
writeln('Исходный массив 1'); PrintM(m1);
writeln('Исходный массив 2'); PrintM(m2);
writeln('Массив суммы'); PrintM(s);
writeln('Массив разности'); PrintM(r);
writeln('  Макс. суммы=',s[imax]:4,' под индексом ',imax);
writeln('Мин. разности=',r[imin]:4,' под индексом ',imin);
readkey
end.

@_ЕГОР_ Тест 383 / 162 / 56 Регистрация: 26.02.2010 Сообщений: 1,241
		1
	Написать программу, которая определяет, является ли данное число совершенным 12.04.2012, 20:05. Показов 5824. Ответов 2 Метки нет (Все метки) 1) 1. Дано натуральное число N. Написать программу, которая определяет, является ли данное число совершенным (Совершенное число равно сумме всех своих делителей, не превосходящих само число). Число N вводится с клавиатуры. На экран вывести все делители числа, их сумму и сообщение является ли число совершенным. 2. Написать программу вычисления суммы, где N=10 - http://i5.pixs.ru/thumbs/7/4/6... 533746.jpg (4) 2) Вычислить и вывести на экран в виде таблицы значения функции, заданной графически , на интервале от хнач до хкон с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой. ( 5) - http://i5.pixs.ru/storage/7/4/... 533748.png 3) Вычислить сумму и разность двух одномерных массивов, содержащих 20 элементов. В массиве суммы найти максимальный элемент и его индекс, в массиве разности найти минимальный элемент и его индекс. Исходные массивы ввести при помощи случайных чисел. На экран вывести исходные массивы, массив суммы, массив разности и индексы максимального и минимального элементов. (8) 4) Создать массив с элементами akn=n f ( k ) + sin ( k ) g (n), где k, n =1, 2, 3, 4; - http://i5.pixs.ru/thumbs/8/3/8... 533838.jpg Вывести его на экран в виде таблицы. Вычислить сумму отрицательных элементов массива. Найти максимальный элемент. (9) 5) Определить список из 10 названий учебных дисциплин. Построить 5 множеств из различных элементов этого списка. Вывести на экран названия объектов, которые находятся во всех множествах одновременно. Вывести объекты, которые не входят ни в одно множество. Вывести объекты, которые входят в первое и четвертое множества, но не входят в третье.(11) - То что в красных скобках это пометка для себя. 0

Опции темы

Написать программу, которая определяет, является ли данное число совершенным

Решение