Нахождение суммы всех натуральных чисел на отрезке

08.02.2012, 19:06. **Показов** 8862. **Ответов** 1

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

Пожалуйста помогите решить какую-нибудь из задач.
1)Составьте программу нахождения суммы всех натуральных чисел на отрезке [333;666]
2)Составте программу для нахождения среднего арифметического всех натуральных чисел на отрезке [50;180]
3)Составте программу вычисления и вывода на экран квадратов целых четных чисел от 0 до N (вводится с клавиатуры)

@Севак · 08.02.2012, 19:30

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

1)Составьте программу нахождения суммы всех натуральных чисел на отрезке [333;666]

Pascal

uses crt;
var
i,s: integer;
begin
s:=0;
for i:=333 to 666 do begin
s:=s+i;
end;
write('S = ',s);
end.

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

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

2)Составте программу для нахождения среднего арифметического всех натуральных чисел на отрезке [50;180]

Pascal

uses crt;
var
i,s: integer;
begin
s:=0;
for i:=50 to 180 do begin
s:=s+i;
end;
write('S = ',s/130:0:3);
end.

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

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

3)Составте программу вычисления и вывода на экран квадратов целых четных чисел от 0 до N (вводится с клавиатуры)

Pascal

uses crt;
var
i,s,n: integer;
begin
s:=0;
write('Введите N: ');
read(n);
for i:=1 to n do begin
if i mod 2 = 0  then begin
s:=i*i;
writeln(i,'^2 = ',s);
end;
end;
end.

Novaya
		1
	Нахождение суммы всех натуральных чисел на отрезке 08.02.2012, 19:06. Показов 8862. Ответов 1 Метки нет (Все метки) Пожалуйста помогите решить какую-нибудь из задач. 1)Составьте программу нахождения суммы всех натуральных чисел на отрезке [333;666] 2)Составте программу для нахождения среднего арифметического всех натуральных чисел на отрезке [50;180] 3)Составте программу вычисления и вывода на экран квадратов целых четных чисел от 0 до N (вводится с клавиатуры)

	08.02.2012, 19:30

Нахождение суммы всех натуральных чисел на отрезке

Решение