0 / 0 / 0
Регистрация: 18.01.2013
Сообщений: 32
1

Найти сумму чисел 7, 10, 13, 16, 19, 22, 25, 28 и 31

18.01.2013, 09:45. Показов 4832. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составить схему алгоритма и программу на языке Паскаль для нахождения сумму чисел 7, 10, 13, 16, 19, 22, 25, 28 и 31
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2013, 09:45
Ответы с готовыми решениями:

Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х чисел.
Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму...

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.
Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2....

Найти сумму квадратов чётных чисел и сумму кубов нечётных чисел от 1 до Н
Даны 2 задания , 1) найти сумму квадратов чётных чисел и сумму кубов нечётных чисел от 1 до Н ,...

Если последняя цифра первого числа чётная то найти сумму чисел, иначе найти произведение последних цифр чисел
Дано два двузначных числа. Если последняя цифра первого числа четная то найти сумму исходных чисел,...

5
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
18.01.2013, 09:48 2
Pascal
1
2
3
4
5
6
i:=7;s:=0;
While i<=31 do
Begin
   s:=s+i;
   i:=i+3;
End;
1
0 / 0 / 0
Регистрация: 18.01.2013
Сообщений: 32
18.01.2013, 10:47  [ТС] 3
ошибку не выдает но и не запускается
0
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
18.01.2013, 10:48 4
Цитата Сообщение от Ильнубиктимеров Посмотреть сообщение
ошибку не выдает но и не запускается
Так потому что это часть программы, а вам остаётся остальную дописать часть...
1
0 / 0 / 0
Регистрация: 18.01.2013
Сообщений: 32
18.01.2013, 10:55  [ТС] 5
я дописал бы если бы знал. Ну я мало что знаю просто к экзамену готовлюсь по билетам и все коды мне придется выучить.
0
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
18.01.2013, 11:04 6
Цитата Сообщение от Ильнубиктимеров Посмотреть сообщение
я дописал бы если бы знал. Ну я мало что знаю просто к экзамену готовлюсь по билетам и все коды мне придется выучить.
Их не учить надо, а понимать что к чему...
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var i,s:integer;
Begin
    i:=7;s:=0;
    While i<=31 do
    Begin
      s:=s+i;
      i:=i+3;
    End;
    writeln('S = ',s);
    readln;
End.
1
18.01.2013, 11:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2013, 11:04
Помогаю со студенческими работами здесь

Найти сумму, произведение, сумму квадратов и сумму корней 2 чисел
Вводятся 2 числа. Найти их сумму,произведения сумму квадратов и сумму корней

Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из введенных чисел
Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из...

Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из введенных чисел
Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из...

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Вывести на экран в процессе ввода чисел: a1+a2, a2+a3, …. aN-1+aN
Помогите, пожалуйста! Решить задачу 3 способами: 1. Используя метки и оператор goto (не...

Нужно найти сумму 15 чисел и найти средне арефмитическое этих 15 чисел
Нужно найти сумму 15 чисел и найти средне арефмитическое этих 15чисел (напишите программу)?!

Найти сумму чётных чисел, сумму чисел кратных 3, сумму чисел кратных 5
Составить программу: Ввести n чисел .Найти сумму чётных чисел,сумму чисел кратных 3,сумму чисел...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru