Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 17.11.2012
Сообщений: 15
1

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

18.12.2012, 20:42. Показов 786. Ответов 8
Метки нет (Все метки)

Ввести N чисел :х1,х2,..хn (N>=3) и число k.Выяснить, правда ли, что сумма остатков
от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ?
Помогите начертить блок-схему)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2012, 20:42
Ответы с готовыми решениями:

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

Определить, превышает ли сумма остатков от деления на 11 двух чисел число 11
Здравствуйте) Помогите решить задачку на Паскале) Я гуманитарий и все этим сказано) Ввести два...

1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа
1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного...

Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа
Помогите решить задачи с процедурами, пожалуйста)) Дано натуральное число. Верно ли, что сумма...

8
0 / 0 / 0
Регистрация: 17.11.2012
Сообщений: 15
20.12.2012, 12:16  [ТС] 2
Ввести N чисел: x1,x2,X3..., xN, ( N ≥ 3) и число k .
Начала делать программу,а вот именно в описании этой операции не могу ничего сделать,помогите)
0
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,263
Записей в блоге: 1
20.12.2012, 14:27 3
Pascal
1
2
3
4
5
6
For i:=1 to n do
Begin
   write('x',i,'=');
   readln(x[i]);
End;
write('Введите k: ');readln(k);
0
0 / 0 / 0
Регистрация: 17.11.2012
Сообщений: 15
20.12.2012, 14:53  [ТС] 4
Я так понимаю,это решается через массив??
0
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,263
Записей в блоге: 1
20.12.2012, 14:54 5
Цитата Сообщение от masha_msf_app21 Посмотреть сообщение
Я так понимаю,это решается через массив??
Pascal
1
2
3
4
5
6
For i:=1 to n do
Begin
   write('x',i,'=');
   readln(x);
End;
write('Введите k: ');readln(k);
Можно так если нигде использоваться не будут введенные числа
0
0 / 0 / 0
Регистрация: 17.11.2012
Сообщений: 15
20.12.2012, 15:00  [ТС] 6
А если дальше необходимо Выяснить, правда ли, что сумма остатков
от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ? то так описать ряд чисел нельзя?
0
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,263
Записей в блоге: 1
20.12.2012, 15:05 7
Цитата Сообщение от masha_msf_app21 Посмотреть сообщение
А если дальше необходимо Выяснить, правда ли, что сумма остатков
от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ? то так описать ряд чисел нельзя?
Если ввести k до ввода чисел x1,x2...xn то не нужен массив, иначе нужен...
0
0 / 0 / 0
Регистрация: 17.11.2012
Сообщений: 15
20.12.2012, 16:12  [ТС] 8
Если не сложно посмотри,пожалуйста:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
Пишет неверное выражение ,когда ищем остаток от деления
0
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,263
Записей в блоге: 1
21.12.2012, 07:15 9
Цитата Сообщение от masha_msf_app21 Посмотреть сообщение
Пишет неверное выражение ,когда ищем остаток от деления
Так потому что вы не правильно используете этот оператор
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2012, 07:15

Определить, верно ли, что в последовательности есть три таких числа, что их сумма больше чем сумма остальных чисел
Дана последовательность целых чисел. Определить, верно ли, что в этой последовательности есть три...

Определить, что больше - сумма четных элементов или сумма нечетных элементов введенной последовательности
Составить программу, используя оператор while, в соответствии с заданием: Ввести с клавиатуры...

Верно ли, что сумма нечетных цифр равна сумме четных?
Дано 4х значное число, верно ли что сумма нечетных чисел равна сумме четных?

Задача на сумму остатков от деления
Ввести N чисел: x1 x2 x3, ( N ≥ 3) и число k . Выяснить, правда ли, что сумма остатков от деления...


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

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

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