Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/46: Рейтинг темы: голосов - 46, средняя оценка - 4.80
jimm500
0 / 0 / 0
Регистрация: 14.02.2013
Сообщений: 13
1

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

18.02.2014, 16:03. Просмотров 8728. Ответов 2
Метки нет (Все метки)

Напишите программу которая вычисляет сумму всех четных чисел в диапазоне от 1 до n.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2014, 16:03
Ответы с готовыми решениями:

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

Написать программу ,которая вычисляет сумму первых n целых положительных четных чисел
Написать программу ,которая вычисляет сумму первых n целых положительных четных...

Написать программу которая вычисляет произведение всех целых чисел от a до b
Написать программу которая вычисляет произведение всех целых чисел от a до b...

написать программу которая вычисляет сумму и произведение N чисел
1) написать программу которая вычисляет сумму и произведение N чисел (N ввести...

Написать программу, которая вычисляет сумму первых целых положительных чисел
Помоги, пожалуйста! Написать программу, которая вычисляет сумму первых целых...

2
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
18.02.2014, 16:13 2
Лучший ответ Сообщение было отмечено jimm500 как решение

Решение

Pascal
1
For i:=1 to n do If not odd(i) then Summ:=Summ+i;
0
IAmDanilka
1 / 1 / 2
Регистрация: 19.02.2014
Сообщений: 14
19.02.2014, 21:04 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program Summ;   // Название программы
Var i, summ: integer   // Объявляем переменные: i для числа, summ для суммы. Обе переменные — целочисленные (integer)
Begin   // Начало программы
   Summ:=0;   // Обнуляем сумму
   Writeln('Write n');   // Просим юзера ввести n
   For i:=1 to n do   // Цикл для i от одного до n
   Begin   // Начало цикла
      If i mod = 2 then   // Условие для числа — число должно быть четным
      Begin   // Начало цикла
         summ:=summ+i;   // Прибавляем к сумме число (если выполняется условие, см. выше)
      End;   // Конец цикла для If
   End;   // Конец цикла для For
   Writeln(summ);   // Выводим сумму
   Readln;   // Ждем нажатия Enter (чтобы программа не закрывалась сразу после вывода суммы, иначе юзер не успеет прочитать ее)
End.   // Конец программы
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2014, 21:04

Напишите программу, которая вычисляет сумму всех четырехзначных чисел кратных K
Помогите пожалуйста решить задачи в паскале буду очень благодарен имя...

Дана строка целых чисел. Составить программу, которая вычисляет сумму первых цифр всех чисел данной строки
1. Дана строка целых чисел. Составить программу, которая вычисляет сумму первых...

Написать программу,которая вычисляет сумму первых N нечетных положительных чисел
Написать программу,которая вычисляет сумму первых N нечетных положительных...


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

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

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