Сколько слагаемых необходимо взять что бы сумма 2+4+6... оказалась больше 100

@Gander · Регистрация: 10.10.2016

Написать программу , которая находит сколько слогаемых необходимо взять что бы сумма 2+4+6... оказалась больше 100 (Тема массивы )

@Puporev · 12.10.2016, 11:08

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

(Тема массивы )

Это Вы заблуждаетесь, просто цикл с пред- или с постусловием.

@JuriiMW · 12.10.2016, 11:11

Зачем нужны массивы в данной задаче? Ну всяко прикидывал! Не могу понять… ;–(

Pascal

begin
  var k := 0;  var a := 2;  var s := 0;
  repeat
    k += 1; s += a; a += 2;
  until s >= 100;
  WriteLn(k);
end.

@Gander · 12.10.2016, 11:23 **[ТС]**

Препод сказал делать через массивы ещё добавил что через двумерный массив

(

@Puporev · 12.10.2016, 11:32

Gander, Вы все перепутали, препод про какое-то другое задание говорил, не смешите народ и не позорьте препода, вот зайдет он на форум, мало Вам не покажется.

@Gander · 12.10.2016, 12:23 **[ТС]**

Уточнил , и всё ровно препод сказал делать через массив ! пояяснив тем что через цикл мы это умеем делать

@Joy · 12.10.2016, 12:48

может лучше квадратное уравнение решить?
n²+n-100=0
n₁=10, n₂=-11

Добавлено через 1 минуту
т.е. 10 слагаемых надо

Добавлено через 6 минут
вообще я эту задачу видел в теме оператор цикла с предусловием, и решение такое:

Pascal

var
  i,s:integer;
begin
  while s<=100 do begin i:=i+1;s:=s+i*2;end;
  write(i);
end.

ну никак не массив

@Gander · 12.10.2016, 15:55 **[ТС]**

Ну вот

а препод сказал делать именно через массив

@Joy · 12.10.2016, 17:02

Pascal

var
  i,s:integer;
  a:array[1..20] of integer;
begin
  while s<=100 do begin i:=i+1;s:=s+i*2;a[i]:=i*2;end;
  writeln('count=',i,'; sum=',s);
  writeln('array elements:');
  for s:=1 to i do write(a[s],' '); 
end.

@Gander · 24.10.2016, 13:07 **[ТС]**

Да , вот только препод говорит надо было делать как-то так :
a[1]:=2
a[2]:=a[1]+2
a[i]:=a[-1]+2
s=s+a[i];
Только я вот не понимаю куда это всунуть что бы работало

P.s вместо "i:=i+1;s:=s+i*2;a[i]:=i*2 " надо моё впихнуть

@Puporev · 24.10.2016, 13:12

Pascal

n:=1;
a[n]:=2;
s:=2;
while s<=100 do
 begin
  n:=n+1;
  a[n]:=a[n-1]+2;
  s:=s+a[n];
 end;

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
		1
	Сколько слагаемых необходимо взять что бы сумма 2+4+6... оказалась больше 100 12.10.2016, 11:01. Просмотров 1231. Ответов 10 Метки нет (Все метки) Написать программу , которая находит сколько слогаемых необходимо взять что бы сумма 2+4+6... оказалась больше 100 (Тема массивы ) 0

@Puporev Модератор 62884 / 46920 / 32338 Регистрация: 18.05.2008 Сообщений: 113,701
	12.10.2016, 11:08	2
	Сообщение от Gander (Тема массивы ) Это Вы заблуждаетесь, просто цикл с пред- или с постусловием. 0

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
	12.10.2016, 11:23 [ТС]	4
	Препод сказал делать через массивы ещё добавил что через двумерный массив ( 0

@Puporev Модератор 62884 / 46920 / 32338 Регистрация: 18.05.2008 Сообщений: 113,701
	12.10.2016, 11:32	5
	Gander, Вы все перепутали, препод про какое-то другое задание говорил, не смешите народ и не позорьте препода, вот зайдет он на форум, мало Вам не покажется. 0

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
	12.10.2016, 12:23 [ТС]	6
	Уточнил , и всё ровно препод сказал делать через массив ! пояяснив тем что через цикл мы это умеем делать 0

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
	12.10.2016, 15:55 [ТС]	8
	Ну вот а препод сказал делать именно через массив 0

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
	24.10.2016, 13:07 [ТС]	10
	Да , вот только препод говорит надо было делать как-то так : a[1]:=2 a[2]:=a[1]+2 a[i]:=a[-1]+2 s=s+a[i]; Только я вот не понимаю куда это всунуть что бы работало P.s вместо "i:=i+1;s:=s+i2;a[i]:=i2 " надо моё впихнуть 0

Опции темы

Сколько слагаемых необходимо взять что бы сумма 2+4+6... оказалась больше 100

Решение