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

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

08.11.2012, 21:02. Показов 3104. Ответов 6
Метки нет (Все метки)

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

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

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

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

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

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

__________________
6
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
08.11.2012, 21:56 2
Проверь. Вроде всё считается адекватно.

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
uses crt;
 
function Num (a : integer) : boolean;
begin
Num := true;
while a > 9 do
  begin
  if odd(a mod 10) then a := a div 10
    else 
      begin 
      Num := false;
      exit;
      end;
  end;
  if a mod 2 = 0 then Num := false;
end;
 
function Num2 (s : integer) : integer;
var
  i : integer;
begin
while s > 9 do
  begin
  if (s mod 10) mod 2 = 0 then inc(i);
  s := s div 10;
  end;
if s mod 2 = 0 then inc(i);  
Num2 := i;
end;
 
var
  a, sum : integer;
 
begin
Writeln('Введите последовательность чисел (конец ввода - 0)');
sum := 0;
Repeat
Readln(a);
if Num(a) = true then sum := sum + a; 
until a = 0;
Writeln('Ответ: ', sum);
Writeln('Четных цифр: ', Num2(sum));
end.
0
0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 43
08.11.2012, 22:10  [ТС] 3
Что-то она не считает ничего . Введите последовательность чисел (конец ввода - 0). Ввожу и ничего не происходит
0
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
08.11.2012, 22:14 4
Добавь в конце Readln;
Или после ввода чисел (то есть после ввода 0) нажми Alt + F5.
0
0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 43
08.11.2012, 22:16  [ТС] 5
Reveng, Ничего не изменилось
0
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
08.11.2012, 22:22 6
Всё запускается.. Или ты неверно, что-то вводишь, или я не знаю..

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
uses crt;
 
function Num (a : integer) : boolean;
begin
Num := true;
while a > 9 do
  begin
  if odd(a mod 10) then a := a div 10
    else 
      begin 
      Num := false;
      exit;
      end;
  end;
  if a mod 2 = 0 then Num := false;
end;
 
function Num2 (s : integer) : integer;
var
  i : integer;
begin
i := 0;
while s > 9 do
  begin
  if (s mod 10) mod 2 = 0 then inc(i);
  s := s div 10;
  end;
if s mod 2 = 0 then inc(i);  
Num2 := i;
end;
 
var
  a, sum : integer;
 
begin
Writeln('Введите последовательность чисел (конец ввода - 0)');
sum := 0;
Repeat
Readln(a);
if Num(a) = true then sum := sum + a; 
until a = 0;
Writeln('Ответ: ', sum);
Writeln('Четных цифр: ', Num2(sum));
Readln;
end.
Определить сумму n-значных чисел, содержащих только нечетные цифры. Определить, сколько четных цифр в найденной сумме
0
0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 43
08.11.2012, 22:55  [ТС] 7
Reveng, Спасибо большое,всё верно!

Добавлено через 29 минут
Reveng, Будьте добры ,помогите пожалуйста с блок-схемами,что-то для меня вообще туговата эта задача(((
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2012, 22:55

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

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

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

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

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

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

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


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

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

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