1 / 1 / 0
Регистрация: 16.03.2010
Сообщений: 17
1

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

21.03.2010, 19:23. Показов 2474. Ответов 5
Метки нет (Все метки)

Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы!
Написать программу, которая высчитывает количество четных чисел, не превышающих заданного значения , сумма цифр которых также является четным числом.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.03.2010, 19:23
Ответы с готовыми решениями:

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

Определить количество элементов массива, в которых сумма первой и последней цифр является четным числом
дан массив a(n). определить количество элементов массива , в которых сумма первой и последней цифр...

Из чисел вывести такие, в которых сумма двух левых цифр является чётным числом и равным сумме двух правых цифр
Помогите составить программу с помощью qbasic Из четырёхзначных чисел ( Целых по значению...

Написать программу, которая высчитывает количество делителей заданного натурально значения k.
Написать программу, которая высчитывает количество делителей заданного натурально значения k.

5
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
21.03.2010, 19:43 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
uses crt;
function SumCifr(n:longint):byte;
var m:longint;
    s:byte;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
SumCifr:=s;
end;
function KolChet(n:integer):integer;
var k:integer;
    i:byte;
begin
k:=0;
for  i:=2 to n do
if (i mod 2=0)and(SumCifr(i)mod 2=0) then k:=k+1;
KolChet:=k;
end;
var n:integer;
begin
clrscr;
writeln('Найти количество четных чисел с четной суммой цифр не более заданного значения.');
write('Введите число для поиска n=');
readln(n);
write('Их количество=',KolChet(n));
readln
end.
1
1 / 1 / 0
Регистрация: 16.03.2010
Сообщений: 17
23.04.2010, 10:01  [ТС] 3
а как сделать так, чтобы эти четные числа были выведены на экран?
0
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.04.2010, 15:56 4
Тогда нужно написать процедуру,
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure KolChet(n:integer; var k:integer);
var i:byte;
begin
k:=0;
for  i:=2 to n do
if (i mod 2=0)and(SumCifr(i)mod 2=0) then 
  begin
   k:=k+1;
   write(i,' ');
  end; 
end;
но по условию
В подпрограммах не должно присутствовать .... вывода результатов на экран
Обращайтесь к тому, кто написал задание.
1
1 / 1 / 0
Регистрация: 16.03.2010
Сообщений: 17
27.04.2010, 17:59  [ТС] 5
Не получается Куда это вставлять этот фрагмент программы?... я запуталась, помоги
0
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.04.2010, 18:21 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
uses crt;
function SumCifr(n:longint):byte;
var m:longint;
    s:byte;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
SumCifr:=s;
end;
procedure KolChet(n:integer; var k:integer);
var i:byte;
begin
k:=0;
for  i:=2 to n do
if (i mod 2=0)and(SumCifr(i)mod 2=0) then 
  begin
   k:=k+1;
   write(i,' ');
  end;
writeln;
end;
var n,k:integer;
begin
clrscr;
writeln('Найти количество четных чисел с четной суммой цифр не более заданного значения.');
write('Введите число для поиска n=');
readln(n);
writeln('Это числа:');
KolChet(n,k);
write('Их количество=',k);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2010, 18:21
Помогаю со студенческими работами здесь

Найти все простые числа, не превосходящие заданного числа, сумма цифр которых, также является простым числом
Срочно нужен код программы в C++ (желательно с комментариями). Я бы разобрался и сам, но на это...

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

Сумма цифр простого числа, которая также является простым числом
помогите, пожалйуста! Написать программу, которая на заданном отрезке натурального ряда чисел...

Найти количество элементов, сумма которых является четным числом
Дана целая квадратная матрица порядка n. Найти количество элементов, сумма которых является четным...

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

Отсортировать по возрастанию только элементы массива, сумма цифр целой части которых является чётным числом
Привет! можете помочь пожалуйста...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru