Верно ли, что сумма остатков от деления нечётных x на k будет больше, чем сумма остатков от деления чётных x на k

@masha_msf_app21 · Регистрация: 17.11.2012

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

Ввести N чисел :х1,х2,..хn (N>=3) и число k.Выяснить, правда ли, что сумма остатков
от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ?
Помогите начертить блок-схему)

@masha_msf_app21 · 20.12.2012, 12:16 **[ТС]**

Ввести N чисел: x1,x2,X3..., xN, ( N ≥ 3) и число k .
Начала делать программу,а вот именно в описании этой операции не могу ничего сделать,помогите)

@CodeR · 20.12.2012, 14:27

Pascal

For i:=1 to n do
Begin
   write('x',i,'=');
   readln(x[i]);
End;
write('Введите k: ');readln(k);

@masha_msf_app21 · 20.12.2012, 14:53 **[ТС]**

Я так понимаю,это решается через массив??

@CodeR · 20.12.2012, 14:54

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

Я так понимаю,это решается через массив??

Pascal

For i:=1 to n do
Begin
   write('x',i,'=');
   readln(x);
End;
write('Введите k: ');readln(k);

Можно так если нигде использоваться не будут введенные числа

@masha_msf_app21 · 20.12.2012, 15:00 **[ТС]**

А если дальше необходимо Выяснить, правда ли, что сумма остатков
от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ? то так описать ряд чисел нельзя?

@CodeR · 20.12.2012, 15:05

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

А если дальше необходимо Выяснить, правда ли, что сумма остатков
от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ? то так описать ряд чисел нельзя?

Если ввести k до ввода чисел x1,x2...xn то не нужен массив, иначе нужен...

@masha_msf_app21 · 20.12.2012, 16:12 **[ТС]**

Если не сложно посмотри,пожалуйста:

Pascal

var k,a,b,s,e:real; n,i,x:integer ;
begin
writeln ('k:');
readln (k);
s:=0;
e:=0;
for i:=1 to n do
begin
writeln ('x',i,'=');
readln  (x);
if x mod 2=0 then
a:= mod(x/k)
s:=s+a
else b mod (x/k);
e:=e+b;
end
if S<E then
writeln ('true')
else (writeln ('false');
end.

Пишет неверное выражение ,когда ищем остаток от деления

@CodeR · 21.12.2012, 07:15

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

Пишет неверное выражение ,когда ищем остаток от деления

Так потому что вы не правильно используете этот оператор

Pascal

var n,i,x,k,a,b,s,e:integer ;
begin
writeln ('k:');
readln (k);
writeln ('n:');
readln (n);
s:=0;
e:=0;
for i:=1 to n do
begin
writeln ('x',i,'=');
readln  (x);
if x mod 2 = 0 then
Begin
  a:=x mod k;
  s:=s+a;
End
else 
Begin
  b:=x mod k;;
  e:=e+b;
End;
end;
writeln(S<E)
end.

@masha_msf_app21 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 15
		1
	Верно ли, что сумма остатков от деления нечётных x на k будет больше, чем сумма остатков от деления чётных x на k 18.12.2012, 20:42. Показов 872. Ответов 8 Метки нет (Все метки) Ввести N чисел :х1,х2,..хn (N>=3) и число k.Выяснить, правда ли, что сумма остатков от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ? Помогите начертить блок-схему) 0

@masha_msf_app21 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 15
	20.12.2012, 12:16 [ТС]	2
	Ввести N чисел: x1,x2,X3..., xN, ( N ≥ 3) и число k . Начала делать программу,а вот именно в описании этой операции не могу ничего сделать,помогите) 0

@masha_msf_app21 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 15
	20.12.2012, 14:53 [ТС]	4
	Я так понимаю,это решается через массив?? 0

@masha_msf_app21 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 15
	20.12.2012, 15:00 [ТС]	6
	А если дальше необходимо Выяснить, правда ли, что сумма остатков от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ? то так описать ряд чисел нельзя? 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,551 Записей в блоге: 1
	20.12.2012, 15:05	7
	Сообщение от masha_msf_app21 А если дальше необходимо Выяснить, правда ли, что сумма остатков от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ? то так описать ряд чисел нельзя? Если ввести k до ввода чисел x1,x2...xn то не нужен массив, иначе нужен... 0

Опции темы