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

@Лемур · Регистрация: 06.02.2014

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

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

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

Pascal

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

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

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.

@Cyborg Drone · 08.12.2014, 01:19

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

Pascal

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

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

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 минуты
Да, в силу того, что программы учебные, проверка корректности вводимых данных не предусмотрена.

@Лемур · 08.12.2014, 07:04 **[ТС]**

Большое спасибо.

@Лемур 17 / 17 / 13 Регистрация: 06.02.2014 Сообщений: 114
	08.12.2014, 07:04 [ТС]	3
	Большое спасибо. 0

Опции темы