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

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

19.05.2010, 04:20. Показов 1405. Ответов 1
Метки нет (Все метки)

Написать программу, определяющую сумму трехзначных чисел, содержащих только нечетные цифры. Определить также, сколько четных цифр в найденной сумме.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2010, 04:20
Ответы с готовыми решениями:

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

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

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

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

__________________
1
Модератор
63356 / 47058 / 32437
Регистрация: 18.05.2008
Сообщений: 114,065
19.05.2010, 09:24 2
Лучший ответ Сообщение было отмечено *Timur* как решение

Решение

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
uses crt;
function Nechet(n:word):boolean;
var p:word;
begin
Nechet:=true;
p:=n;
while p>0 do
 begin
  if (p mod 10)mod 2=0 then Nechet:=false;
  p:=p div 10;
 end;
end;
function Chet(n:longint):byte;
var p:longint;
    s:byte;
begin
p:=n;
s:=0;
while p>0 do
 begin
  if (p mod 10) mod 2=0 then s:=s+1;
  p:=p div 10;
 end;
Chet:=s;
end;
var i:word;
sm:longint;
begin
clrscr;
sm:=0;
writeln('Трехзначные числа из нечетных цифр');
for i:=111 to 999 do
if Nechet(i) then
 begin
  write(i:4);
  sm:=sm+i;
 end;
writeln;
writeln('Их сумма=',sm);
write('Количество четных цифр в сумме=',Chet(sm));
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2010, 09:24

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

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

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

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

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

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

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


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

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

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