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

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

18.04.2013, 15:42. Показов 1715. Ответов 3
Метки нет (Все метки)

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

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

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

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

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

__________________
3
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 535
Записей в блоге: 2
18.04.2013, 15: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
Var k,d,n,sum:Integer; p,pp:Boolean;
BEGIN
sum:=0;
Repeat
    Write('vvedite chislo: ');Readln(n);
    p:=false;d:=n; pp:=True;
    While d>0 Do Begin
        k:=d mod 10;
        if k mod 2=1 Then p:=True Else p:=False;
                if Not p Then pp:=False;
        d:=d div 10;
    End;
    If pp Then sum:=sum+n;
Until n=0;{vvod chisel poka N ne budet ravno 0}
Writeln('sum = ',sum);
d:=0;
While sum>0 Do Begin
    k:=sum mod 10;
    If k mod 2=0 Then Inc(d);
    sum:=sum div 10;
End;
Writeln('kol-vo chetnyh cifr v summe = ',d);
Readln
END.
0
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 9
25.04.2013, 09:00 3
в сумме ошибка
0
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 535
Записей в блоге: 2
28.04.2013, 21:15 4
напиши какие данные ты вводишь и какой результат
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2013, 21:15

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

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

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

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

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

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

Напишите программу, определяющую сумму всех четных чисел от 2 до 50
2) Напишите программу,определяющую сумму всех четных чисел от 2 до 50


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

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

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