Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
raulZarul
0 / 0 / 0
Регистрация: 22.04.2012
Сообщений: 12
1

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

14.05.2012, 20:45. Просмотров 559. Ответов 6
Метки нет (Все метки)

Написать программу, которая вычисляет сумму чисел, не превосходящих заданного числа , содержащих только четные цифры.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function f(nf,ef,df,sf,tf:integer):integer;
begin
tf:= nf div 1000;
sf:= (nf-tf*1000) div 100;
df:= (nf-tf*1000-sf*100) div 10;
ef:= nf mod 10;
if (tf mod 2=0) and (sf mod 2=0) and (df mod 2=0) and (ef mod 2=0) then
f:= nf else f:=0;
end;
 
var i,p,n,e,d,s,t:integer;
begin
write ('n: '); readln(n);
p:=0;
for i:=1 to n do
p:=p+f(i,e,d,s,t);
writeln('Сумма чисел: ',p);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2012, 20:45
Ответы с готовыми решениями:

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

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

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

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

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

6
Puporev
Модератор
56816 / 43416 / 30016
Регистрация: 18.05.2008
Сообщений: 103,415
14.05.2012, 21:06 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
function Chet(n:integer):boolean;
var f:boolean;
    m:integer;
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;
Chet:=f;
end;
var n,i,s:integer;
begin
write('n=');
read(n);
s:=0;
for i:=1 to n do
if Chet(i) then s:=s+i;
write('Сумма чисел из четных цифр=',s);
end.
0
raulZarul
0 / 0 / 0
Регистрация: 22.04.2012
Сообщений: 12
14.05.2012, 21:12  [ТС] 3
программа также неверна
ввожу 10 отв 20
ввожу 12 отв 20
0
Puporev
Модератор
56816 / 43416 / 30016
Регистрация: 18.05.2008
Сообщений: 103,415
14.05.2012, 21:27 4
Цитата Сообщение от raulZarul Посмотреть сообщение
ввожу 10 отв 20
ввожу 12 отв 20
2+4+6+8=20

Добавлено через 46 секунд
Цитата Сообщение от raulZarul Посмотреть сообщение
программа также неверна
Это мозг у тебя неверный...

Добавлено через 1 минуту
Цитата Сообщение от raulZarul Посмотреть сообщение
содержащих только четные цифры.
У тебя что, числа 10 и 12 состоят только из четных цифр?
0
raulZarul
0 / 0 / 0
Регистрация: 22.04.2012
Сообщений: 12
14.05.2012, 21:37  [ТС] 5
че за дермо ты несешь
2+4+6+8+10=30
2+4+6+8+10+12=42
0
Puporev
Модератор
56816 / 43416 / 30016
Регистрация: 18.05.2008
Сообщений: 103,415
14.05.2012, 21:43 6
raulZarul, Пасть прикрой и чуть хоть думай. Число 10 состоит из цифр 1 и 0, цифра 1 нечетная, точно также и 12.
0
raulZarul
0 / 0 / 0
Регистрация: 22.04.2012
Сообщений: 12
14.05.2012, 21:46  [ТС] 7
упс извини ну и тогда и моя прграмма верна
0
14.05.2012, 21:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2012, 21:46

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

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

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


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

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

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