Полезно почитать !!!

@Proffessor · Регистрация: 14.11.2010

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

Помогите написать программу разложения целого положительного числа на простые множители ???
А также :
1
Запросите у пользователя отрицательное число А и найдите сумму всех натуральных чисел из промежутка [А, 1].

Вводится М чисел. Определить, сколько среди них положительных, включая 0, и сколько отрицательных. Числа вводятся в одну переменную в цикле.

Найти сумму целых положительных чисел, больших М, меньше N и кратных 5.

буду очень благодарен

@Razorich · 21.11.2010, 17:21

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

Запросите у пользователя отрицательное число А и найдите сумму всех натуральных чисел из промежутка [А, 1].

Pascal

var
n,i,sum: integer;
begin
writeln('Введите отрицательное число');
readln(n);
for i:=n to 1
    do
      sum:=sum+i;
writeln('Ответ: ',sum);
end.

Добавлено через 3 минуты

Pascal

var
m,i,a,pol,otr: integer;
begin
writeln('Введите M');
readln(m);
for i:=1 to m
    do
      begin
      writeln('Введите ',i,'-ое число');
      readln(a);
      if a>=0
         then
             inc(pol)
         else
             inc(otr);
      end;
writeln('Положительных и нулей: ',pol);
writeln('Отрицательных: ',otr);
end.

Добавлено через 3 минуты

Pascal

var
m,n,sum,i: integer;
begin
writeln('Введите M');
readln(m);
writeln('Введите N');
readln(n);
if m>n
   then
       writeln('Ошибка! M>N');
for i:=m+1 to n-1 {если включая M и N то:}
    do            {for i:=m to n do}
      begin
      if i mod 5=0
         then
             sum:=sum+i;
      end;
writeln('Ответ: ',sum);
end.

@Proffessor · 24.11.2010, 19:48 **[ТС]**

Razorich, Большое спасибо за огромную помощь по теме !!!

@Proffessor 1 / 1 / 0 Регистрация: 14.11.2010 Сообщений: 25
		1
	Полезно почитать !!! 21.11.2010, 17:00. Показов 1722. Ответов 2 Метки нет (Все метки) Помогите написать программу разложения целого положительного числа на простые множители ??? А также : 1 Запросите у пользователя отрицательное число А и найдите сумму всех натуральных чисел из промежутка [А, 1]. Вводится М чисел. Определить, сколько среди них положительных, включая 0, и сколько отрицательных. Числа вводятся в одну переменную в цикле. Найти сумму целых положительных чисел, больших М, меньше N и кратных 5. буду очень благодарен 0

@Proffessor 1 / 1 / 0 Регистрация: 14.11.2010 Сообщений: 25
	24.11.2010, 19:48 [ТС]	3
	Razorich, Большое спасибо за огромную помощь по теме !!! 0

Полезно почитать !!!

Решение