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

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

09.05.2012, 12:41. Просмотров 1140. Ответов 8
Метки нет (Все метки)


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

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

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

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

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

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

8
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
09.05.2012, 12:49 2
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function Prost(n: integer): boolean;
var i: integer;
   b: boolean;
begin
   b:=true;
   for i:=2 to n div 2 do
      if n mod i=0 then b:=false;
   Prost:=b;
end;
var n: integer;
begin
   readln(n);
   writeln(Prost(n));
   readln;
end.
1
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 30
09.05.2012, 12:50  [ТС] 3
Это полный код?
0
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
09.05.2012, 12:53 4
ко второй задаче - да
1
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 30
09.05.2012, 12:59  [ТС] 5
Спасибо)) а к первой никак?
0
Эксперт С++
4710 / 2535 / 753
Регистрация: 18.08.2009
Сообщений: 4,550
09.05.2012, 13:22 6
1-ая:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var n, res, t: longint;
procedure f(a,b:longint);
var i:integer;
begin
if(a=n) then begin res:=res+b; exit; end;
b:=b*10;
i:=1;
while i<10 do begin
f(a+1, b+i);
i:=i+2;
end;
end;
 
begin
read(n);
f(0,0);
writeln('Сумма: ',res);
while res>0 do begin
if (res mod 10) mod 2 =0 then inc(t);
res:=res div 10;
end;
writeln('Четных чисел в сумме: ', t);
end.
1
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 30
09.05.2012, 13:56  [ТС] 7
а что я ввожу?
ввожу скажем 5, а ответ сумма=173609375, четных чисел в сумме=2.
а откуда он сумму берет? что он складывает?

Добавлено через 14 минут
valeriikozlov, а что я ввожу?
ввожу скажем 5, а ответ сумма=173609375, четных чисел в сумме=2.
а откуда он сумму берет? что он складывает?
0
Эксперт С++
4710 / 2535 / 753
Регистрация: 18.08.2009
Сообщений: 4,550
09.05.2012, 17:27 8
Цитата Сообщение от SanR Посмотреть сообщение
а откуда он сумму берет? что он складывает?
Я могу предположить, что вариант, который Вы хотели увидеть (например при вводе 5), такой:
- перебираем все числа от 10000 до 99999. Для каждого числа проверяем есть ли в его составе четные цифры. Если таких цифр нет, то суммируем их к общему результату.
Такой вариант очень медленный по сравнению с тем который привел я. В моем варианте с помощью рекурсии генерируются числа состоящие только из нечетных цифр, длинной которая вводится с клавиатуры. Чисел с четными цифрами вообще нет.
1
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 30
09.05.2012, 19:35  [ТС] 9
valeriikozlov, аа вон оно че. ну да у меня тоже была такая мысль. еще условия задачи криво поставлены...
спасибо большое))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2012, 19:35

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

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

Строки. Определить сумму чисел, оканчивающихся на цифры 3 или 4
помогите пожалуйста решить задачу: Дана строка символов, состоящая из цифр от 0 до 9 и пробелов....

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

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


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

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

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