Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/18: Рейтинг темы: голосов - 18, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 07.03.2013
Сообщений: 10
1

Найти сумму двадцати первых чисел числового ряда

15.09.2013, 19:30. Просмотров 3274. Ответов 6
Метки нет (Все метки)


Нужно сделать 4 программы, буду рад если кто напишет хоть одну.

2.1. Составить программу, которая будет находить сумму двадцати первых чисел числового ряда (1, 2, ...,20).
2.2. Составить программу, которая будет находить сумму десятичных цифр водимого числа.
Например: сумма цифр числа 427 равна 13.
2.3. Составьте программу, которая будет выдавать номер позиции цифры во введённом заранее числе.
Например: для введенного числа 35 программа должна выдать:
в 0-й позиции находиться цифра 5;
в 1-й позиции находиться цифра 3;
2.4. Составьте программу, которая выдаёт разложение заданного целого числа на простые множители.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.09.2013, 19:30
Ответы с готовыми решениями:

Дано натурально число n. вычислить сумму n-первых членов числового ряда...
Пожалуйста помогите решить задачу: Дано натурально число n. вычислить сумму n-первых членов...

Найти сумму элементов числового ряда
Помогите решить :wall: Найти сумму элементов числового ряда S=1-2/2!+3/3!-4/4!+5/5!-...=-O

Найти сумму и произведение числового ряда
Пожалуйста помогите написать на паскале СУММА И ПРОИЗВЕДЕНИЕ ЧИСЛОВОГО РЯДА 1....N! Пожалуйста,...

Для первых двадцати натуральных чисел определить...
Для первых двадцати натуральных чисел определить - является ли это число парным в интервале от 2 до...

6
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
15.09.2013, 20:06 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
Pascal
1
2
3
s:=0;
for i:=1 to 20 do
s:=s+i;
или как сумму арифметической прогрессии.

Добавлено через 59 секунд
2.
Pascal
1
2
3
4
5
6
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10
 end;
1
10 / 10 / 9
Регистрация: 12.10.2012
Сообщений: 49
15.09.2013, 20:09 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Deno96 Посмотреть сообщение
2.1. Составить программу, которая будет находить сумму двадцати первых чисел числового ряда (1, 2, ...,20).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var b, i: integer;
    a: array [1..100] of integer;
begin
b:=0;
write('Числовая последовательность: ');
for i:=1 to 50 do
  begin
  a[i]:=random(100);
  write (' ',a[i],' ');
  end;
       for i:=1 to 20 do
         begin
         b:=b+a[i];
         end;
writeln;
writeln ('Нажмите Enter для продолжения...');
readln;
write ('Сумма первых двадцати элементов последовательности равна ',b);
end.
1
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
15.09.2013, 20:11 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

3.
Pascal
1
2
3
4
5
6
7
i:=-1;
while n>0 do
 begin
  i:=i+1;
  writeln('â ïîçèöèè ',i,' - ',n mod 10);
  n:=n div 10;
 end;
Добавлено через 1 минуту
deadmetaller, Ты вроде задание прочитал, даже процитировал, но или не понял, или прикалываешься...
1
10 / 10 / 9
Регистрация: 12.10.2012
Сообщений: 49
15.09.2013, 20:17 5
Puporev, думаю я верно выполнил это задание, ибо кому нужна программа которая будет складывать постоянно числа 1, 2, 3 и так далее до двадцати?
0
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
15.09.2013, 20:26 6
Цитата Сообщение от deadmetaller Посмотреть сообщение
ибо кому нужна программа которая будет складывать постоянно числа 1, 2, 3 и так далее до двадцати?
ТСу и его преподу... ибо так написано в условиии

Добавлено через 1 минуту
Даже если это не так, то все равно речь идет о числовом ряде, а уж никак не массиве, ТС их наверняка еще и не проходил...
1
0 / 0 / 1
Регистрация: 07.03.2013
Сообщений: 10
16.09.2013, 00:43  [ТС] 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

2.1. Составить программу, которая будет находить сумму двадцати первых чисел числового ряда (1, 2, ...,20).
Pascal
1
2
3
4
5
6
7
8
9
10
Program task_alone;
var a, b, s, x:real;
begin
write('Введите число a=');
read (a);
write('Введите число b=');
read (b);
s:=(b*(b+a))/2;
write ('Ответ ',s);
end.
2.4. Составьте программу, которая выдаёт разложение заданного целого числа на простые множители.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program task_four;
var 
  M, M1, k:longint;
  j:boolean;
label l;
begin
    j:=true;
    k:=2;
    write('Введите целое число: ');
    readln(M);
    M1:=M div 2;
    write(M, '=');
  l:if (M mod k)=0 then
      begin
        j:=false;
        M:=M div k;
        write(k);
        if M<>1 then write('*');
      end
    else k:=k+1;
    if k<=M1 then goto l;
    if j then write('простое число');
end.
p.s Может кому пригодиться. Спасибо за помощь.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.09.2013, 00:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти сумму/произведение N элементов бесконечного числового ряда
Помогите решить задачи, я почти ничего не смыслю, а очень нужно! Задача 1: Имеется четыре...

Вычислить сумму первых N чисел ряда
надо решить 2 задачи(1 кажется решил но чо то не правильно :ОО). 1.) программа, которая вычисляет...

Вычислить сумму первых N чисел натурального ряда
Вычислить сумму первых N чисел натурального ряда. Входные данные: Во входном потоке записано...

Вычислите сумму первых N чисел натурального ряда кратных 3.
Помогите пожалуйста с решением. Вычислите сумму первых N чисел натурального ряда кратных 3 с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.