Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 9
1

Функции: определяющую сумму n-значных чисел, содержащих только нечётные цифры

24.04.2013, 18:19. Показов 1959. Ответов 9
Метки нет (Все метки)

Написать программу,определяющую сумму n-значений чисел,содержащих только нечётные цифры.Определить также,сколько чётных цифр в найденной сумме,
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2013, 18:19
Ответы с готовыми решениями:

Процедуры или функции. Определить сумму n-значных чисел, содержащих только нечетные цифры
Ребят, помогите решить задачи. Нужен ПОЛНЫЙ КОД и чтобы в нем использовалась либо процедура, либо...

Напишите программу,определяющую сумму n-значении чисел,содержащих только нечетные цифры.
Напишите программу,определяющую сумму n-значении чисел,содержащих только нечетные цифры.Определить...

Сумма n - значных чисел, содержащих только нечетные цифры
Написать программу, определяющую сумму n - значных чисел, содержащих только нечетные цифры....

Определить сумму n-значных чисел, содержащих только нечетные цифры. Определить, сколько четных цифр в найденной сумме
Написать программу, определяющую сумму n - значных чисел, содержащих только нечетные цифры....

__________________
9
Модератор
63331 / 47043 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
24.04.2013, 19:06 2
Наверное определяющую сумму n-значных чисел,

Добавлено через 4 минуты
Числа типа Longint или любой размерности?

Добавлено через 26 минут
Для типа Longint.
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
{функция определяет число на 1 больше максимального n-значного
напрмер при n=4 значение=10000}
function max(n:byte):longint;
var i:byte;
    m:longint;
begin
m:=1;
for i:=1 to n do
m:=m*10;
max:=m;
end;
{функция устанавливает что все цифры числа нечетные}
function necet(n:longint):boolean;
var m:longint;
    f:boolean;
begin
f:=true;
m:=n;
while(m>0)and f do
if (m mod 10)mod 2=0 then f:=false
else m:=m div 10;
necet:=f
end;
{фунуция считает сумму n-значных чисел с нечетными цифрами}
function summa(n:byte):longint;
var i,s:longint;
begin
s:=0;
for i:=max(n) div 10 to max(n)-1 do
if necet(i) then s:=s+i;
summa:=s
end;
{функция определяет кол-во четных цифр в числе}
function chet(n:longint):byte;
var m:longint;
    k:byte;
begin
m:=n;
k:=0;
while m>0 do
 begin
  if (m mod 10)mod 2=0 then k:=k+1;
  m:=m div 10
 end;
chet:=k
end;
var n:byte;
    s:longint;
begin
clrscr;
repeat
write('0<n<7 n=');
readln(n);
until n in [1..6];{больше 6знаков долго считает}
s:=summa(n);
writeln('Сумма n-значных чисел, все цифры которых нечетные=',s);
writeln('Количество четных цифр в ней=',chet(s));
readln
end.
1
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 9
24.04.2013, 19:18  [ТС] 3
а можно для другой
0
Модератор
63331 / 47043 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
24.04.2013, 19:24 4
Цитата Сообщение от KASYAK Посмотреть сообщение
а можно для другой
Для какой другой? Условие точное напиши. Еще можно числа представлять строкой или массивом цифр.

Добавлено через 38 секунд
И чем это не нравится? Или просто ляпнуть?
0
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 9
24.04.2013, 19:30  [ТС] 5
я про типы говорю(boolean,longint) мы их ещё не проходили
0
Модератор
63331 / 47043 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
24.04.2013, 19:35 6
Цитата Сообщение от KASYAK Посмотреть сообщение
мы их ещё не проходили
Ну когда пройдете, пойдешь задачу сдавать. Что-то у меня ощущение что ты понятия не имеешь что у вас там проходят...

Добавлено через 47 секунд
Они в Турбо Паскале не проходили тип Longint....
0
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 9
24.04.2013, 19:50  [ТС] 7
да не проходили
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,018
Записей в блоге: 1
01.05.2013, 09:58 8
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
26
27
28
Var i,n,s,m,k:longint;
Function F(n:longint):boolean;
Var b:boolean;
Begin
    b:=true;
    While n>0 do
    Begin
      if n mod 10 mod 2 = 0 then b:=false;
      n:=n div 10;
    End;
    F:=b;
End;
Begin
    write('Введите N: ');readln(n);
    m:=1;
    For i:=1 to n-1 do 
     m:=m*10;
    For i:=m to m*10-1 do
     if F(i) then s:=s+m;
    writeln('Сумма = ',s);
    While s>0 do
    Begin
      if s mod 10 mod 2 = 0 then inc(k);
      s:=s div 10;
    End;
    writeln('Чётных цифр в сумме = ',k);
    readln;
End.
1
Модератор
63331 / 47043 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
01.05.2013, 11:54 9
CodeR, Так он пишет что
Цитата Сообщение от KASYAK Посмотреть сообщение
(boolean,longint) мы их ещё не проходили
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,018
Записей в блоге: 1
01.05.2013, 11:56 10
Цитата Сообщение от Puporev Посмотреть сообщение
CodeR, Так он пишет что
Puporev, так была сперва другая тема, в которой я отписался,а моё сообщение просто переместили!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2013, 11:56

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Функции: определить сумму трехзначных чисел, содержащих только нечетные цифры
Написать программу, определяющую сумму трехзначных чисел, содержащих только нечетные цифры....

Определяющую сумму n-значных чисел, содержащих только нечётные цифры
Написать программу, определяющую сумму n-значных чисел, содержащих только нечётные цифры.Определить...

Написать программу,определяющую сумму n-значных чисел,содержащих только нечетные цифры
Пожалуйста, помогите исправить код. Написать программу,определяющую сумму n-значных...

Написать программу, определяющую сумму n-значных чисел, содержащих только нечетные цифры.
Написать программу, определяющую сумму n-значных чисел, содержащих только нечетные цифры....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.