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

@кристин@ · Регистрация: 16.03.2010

Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы!
Написать программу, которая высчитывает количество четных чисел, не превышающих заданного значения , сумма цифр которых также является четным числом.

@Puporev · 21.03.2010, 19:43

Pascal

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.

@кристин@ · 23.04.2010, 10:01 **[ТС]**

а как сделать так, чтобы эти четные числа были выведены на экран?

@Puporev · 23.04.2010, 15:56

Тогда нужно написать процедуру,

Pascal

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;

но по условию

В подпрограммах не должно присутствовать .... вывода результатов на экран

Обращайтесь к тому, кто написал задание.

@кристин@ · 27.04.2010, 17:59 **[ТС]**

Не получается

Куда это вставлять этот фрагмент программы?... я запуталась, помоги

@Puporev · 27.04.2010, 18:21

Pascal

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.

@кристин@ 1 / 1 / 0 Регистрация: 16.03.2010 Сообщений: 17
		1
	Написать программу, которая высчитывает количество четных чисел, не превышающих заданного значения, сумма цифр которых также является четным числом. 21.03.2010, 19:23. Показов 2474. Ответов 5 Метки нет (Все метки) Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы! Написать программу, которая высчитывает количество четных чисел, не превышающих заданного значения , сумма цифр которых также является четным числом. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@кристин@ 1 / 1 / 0 Регистрация: 16.03.2010 Сообщений: 17
	23.04.2010, 10:01 [ТС]	3
	а как сделать так, чтобы эти четные числа были выведены на экран? 0

@кристин@ 1 / 1 / 0 Регистрация: 16.03.2010 Сообщений: 17
	27.04.2010, 17:59 [ТС]	5
	Не получается Куда это вставлять этот фрагмент программы?... я запуталась, помоги 0

Опции темы