Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/288: Рейтинг темы: голосов - 288, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 31.01.2014
Сообщений: 4
1

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

31.01.2014, 17:23. Показов 53036. Ответов 3
Метки нет (Все метки)

напишите программу которая вычисляет сумму: первых n натуральных чисел; квадратов первых n натуральных чисел; всех четных чисел в диапазоне от 1 до n; Всех двузначных чисел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.01.2014, 17:23
Ответы с готовыми решениями:

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

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

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

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

__________________
3
0 / 0 / 0
Регистрация: 31.01.2014
Сообщений: 4
31.01.2014, 18:08  [ТС] 2
Паскаль, школьный курс.
0
102 / 89 / 75
Регистрация: 04.11.2011
Сообщений: 1,811
31.01.2014, 18:17 3
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

Сумма n нат чисел
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
program 1;
uses crt;
var i,n,sum:integer;
Begin clrscr;
writeln("Enter n");
readln(n)
sum:=0;
for i:=1 to n do
sum:=sum+1;
writeln("result=",sum);
readln;
End.
Добавлено через 54 секунды
Вот с квадратами
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var n,i,k,x:integer;
Begin clrscr;
Writeln('Введите число n');
Readln(n);
x:=0;
for i:=1 to n do 
begin
k:=i*i;
x:=x+k;
end;
Writeln('Сумма квадратов ',x);
Readkey;
end.
Добавлено через 48 секунд
Вот двузначные числа
Pascal
1
2
3
4
5
6
7
8
9
var
i:byte;
summ:longint;
begin
summ:=1;
for i:=10 to 99 do
summ:=summ+i;
writeln('Cymma=',summ);
end.
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var n,i,s:integer;
begin
write('n = ');
read(n);
s:=0;
for i:=1 to n do
begin
if i mod 2=0 then
s:=s+i;
end;
write('s = ',s);
end.
Четные числа
1
0 / 0 / 0
Регистрация: 31.01.2014
Сообщений: 4
01.02.2014, 10:32  [ТС] 4
Спасибо!)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.02.2014, 10:32

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

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

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

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

Написать программу, которая вычисляет сумму первых n членов ряда 1+1/2+1/3+1/4+
2)написать программу которая вычисляет сумму первых n членов ряда 1+1/2+1/3+1/4+.....Количество...


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

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

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