Найти сумму чисел кратных двум

@Frost007 · Регистрация: 05.03.2012

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

найти сумму чисел кратных двум,выбирать из 10 чисел введенных с клавиатуры.через mod

@Артём121 · 22.03.2012, 19:29

Т. е. найти сумму элементов,значения которых четно(кратно 2), массива размерности 10 ?

@Frost007 · 22.03.2012, 19:41 **[ТС]**

Артём121, нет просто вводишь с клавиатуры любых 10 чисел и он считает их сумму, но чтобы числа выбирал только кратные двум, не через массив, через mod

@BumerangSP · 22.03.2012, 19:41

Сообщение от Артём121

Т. е. найти сумму элементов,значения которых четно(кратно 2), массива размерности 10 ?

Можно и без. Просто проверять каждое введенное число в цикле до 10.

Добавлено через 28 секунд
Эх, опоздал))

Pascal

uses crt;
var i,j,sum: integer;
begin
 clrscr;
 for i:=1 to 10 do
  begin
   readln(j);
   if j mod 2 = 0 then
    sum:=sum+j;
  end;
 writeln('Сумма = ',sum);
 readln;
end.

@Стрелок · 22.03.2012, 19:44

Pascal

program zz;
var i,g:integer;
    s:longint;
begin
s:=0;
 for i:=1 to 10 do
  begin
   readln(g);
    if g mod 2=0 then
     begin
      s:=s+g;
     end;
  end;
writeln(s);
readln;
end.

@Frost007 · 22.03.2012, 20:40 **[ТС]**

BumerangSP, как сделать чтобы если не ввёдешь числа кратные 2 чтоб писало нет чисел кратных двум

@BumerangSP · 22.03.2012, 20:44

Frost007, вот, чтоб наверняка:

Pascal

uses crt;
var i,j,sum,k: integer;
begin
 clrscr;
 for i:=1 to 10 do
  begin
   readln(j);
   if j mod 2 = 0 then
    begin
     sum:=sum+j;
     inc(k);
    end;
  end;
 if k<>0 then
  writeln('Сумма = ',sum)
 else
  writeln('Нет чисел, кратных 2');
 readln;
end.

Сделал так, это даже учитывает, если все элементы будут равны 0.

@Frost007 · 22.03.2012, 20:52 **[ТС]**

BumerangSP, на втором end не проходит

@BumerangSP · 22.03.2012, 20:59

Frost007, хм, что не проходит? В паскале-то? Может, нужно присвоить в начале k=0. Но обычно в паскале это по умолчанию.
Что компилятор выдает?

@Frost007 · 22.03.2012, 21:04 **[ТС]**

BumerangSP, выдает то что после второго end надо точку ставить

@BumerangSP · 22.03.2012, 21:10

Frost007,

Не знаю, о чем он. Там ведь begin и end везде поровну. Какой паскаль? абс и турбо удачно компилируют.

@Frost007 · 22.03.2012, 22:03 **[ТС]**

BumerangSP, разобрался,всё работает

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	22.03.2012, 21:10	11
	Frost007, Не знаю, о чем он. Там ведь begin и end везде поровну. Какой паскаль? абс и турбо удачно компилируют. 1

Найти сумму чисел кратных двум

Решение

Решение

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
		1
	Найти сумму чисел кратных двум 22.03.2012, 19:22. Показов 7836. Ответов 11 Метки нет (Все метки) найти сумму чисел кратных двум,выбирать из 10 чисел введенных с клавиатуры.через mod 0

@Артём121 66 / 65 / 13 Регистрация: 15.11.2010 Сообщений: 396 Записей в блоге: 1
	22.03.2012, 19:29	2
	Т. е. найти сумму элементов,значения которых четно(кратно 2), массива размерности 10 ? 0

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
	22.03.2012, 19:41 [ТС]	3
	Артём121, нет просто вводишь с клавиатуры любых 10 чисел и он считает их сумму, но чтобы числа выбирал только кратные двум, не через массив, через mod 0

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
	22.03.2012, 20:40 [ТС]	6
	BumerangSP, как сделать чтобы если не ввёдешь числа кратные 2 чтоб писало нет чисел кратных двум 0

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
	22.03.2012, 20:52 [ТС]	8
	BumerangSP, на втором end не проходит 0

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	22.03.2012, 20:59	9
	Frost007, хм, что не проходит? В паскале-то? Может, нужно присвоить в начале k=0. Но обычно в паскале это по умолчанию. Что компилятор выдает? 0

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
	22.03.2012, 21:04 [ТС]	10
	BumerangSP, выдает то что после второго end надо точку ставить 0

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
	22.03.2012, 22:03 [ТС]	12
	BumerangSP, разобрался,всё работает 0