17 / 17 / 13
Регистрация: 06.02.2014
Сообщений: 114
1

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

07.12.2014, 17:04. Показов 10809. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Написать программу ,которая вычисляет сумму первых n целых положительных четных чисел.Количество суммируемых числел должно вводиться во время работы программы(1используя цикл с параметром,2цикл с предусловием,3цикл с постусловием)

Добавлено через 5 часов 26 минут
я написал 1 задание. верно?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program Io;
var i,k:byte; x:real; e:integer;
begin
k:=0;
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
readln(x);
if (x>0) and (x mod 2=0) then e:=e+x 
end;
writeln('сумма чисел равна',e );
readln
end.
Добавлено через 10 минут
я написал 2 задание. верно?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Io;
var i,:byte; x:real; e,k:integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
readln(x);
if (x>0) and (x mod 2=0) then x:=x
k=k+1
while k=3 do
 e:=e+x 
end;
writeln('сумма чисел равна',e );
readln
end.
Добавлено через 20 минут
а вот 3е

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Io;
var i,:byte; x:real; e,k:integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
readln(x);
if (x>0) and (x mod 2=0) then do
x:=x;
k:=k+1;
repeat
e:=e+x
until k:=3;
writeln('сумма чисел равна',e );
end;
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2014, 17:04
Ответы с готовыми решениями:

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

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

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

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

2
Модератор
9903 / 5262 / 3317
Регистрация: 17.08.2012
Сообщений: 16,077
08.12.2014, 01:19 2
Неверно, в программах много ошибок. Также программы не соответствуют заданию: в задании нигде не сказано, что нужно вводить конкретные числа, а сказано, что нужно вводить лишь их количество. По заданию так:
Pascal
1
2
3
4
5
6
7
8
9
10
var i, n, s: integer;
 
begin
  s := 0;
  write('n = ');
  readln(n);
  for i := 1 to n do s := s + 2 * i;
  write('s = ', s);
  readln
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var n, s: integer;
 
begin
  s := 0;
  write('n = ');
  readln(n);
  while n > 0 do
    begin
      s := s + 2 * n;
      dec(n)
    end;
  write('s = ', s);
  readln
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var n, s: integer;
 
begin
  s := 0;
  write('n = ');
  readln(n);
  repeat
    s := s + 2 * n;
    dec(n)
  until n = 0;
  write('s = ', s);
  readln
end.
Добавлено через 3 минуты
Вообще говоря, циклы здесь и не нужны: эта сумма равна сумме n первых членов арифметической прогрессии с первым членом 2 и разностью прогрессии 2. Но понимаю, задание по циклам.

Добавлено через 3 минуты
Да, и ещё. Умышленно не написал решение "в лоб" с инкрементом числа, выяснением с помощью операции mod чётное оно или нет, с суммированием и подсчётом количества просуммированных чисел до тех пор, пока их количество не будет равно n.

Добавлено через 2 минуты
Да, в силу того, что программы учебные, проверка корректности вводимых данных не предусмотрена.
1
17 / 17 / 13
Регистрация: 06.02.2014
Сообщений: 114
08.12.2014, 07:04  [ТС] 3
Большое спасибо.
0
08.12.2014, 07:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2014, 07:04
Помогаю со студенческими работами здесь

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

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

Написать программу, которая вычисляет сумму первых n членов ряда
Помогите кто, что может сделайте. Желательно до 24:00 сегодня. Желательно на Free Pascal. 1. ...

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


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

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

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