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

@Алиса234 · Регистрация: 11.03.2012

Студворк — интернет-сервис помощи студентам

дано шестизначное число найти сумму нечетных цыфр данного числа использовать функцию

@SeryZone · 11.03.2012, 20:40

Pascal

program NoName;
 
var
  n, sum, m: integer;
 
function recurs(n: longint): integer;
begin
  while n <> 0 do
  begin
    if (odd(n) = true) then sum := sum + n mod 10;
    n := n div 10;
  end;
end;
 
begin
  writeln('Vvedite chislo: '); read(n);
  if (n > 99999) and (n <= 999999) then
  begin
    recurs(n);
  writeln('Otvet: ', sum);
  end;
end.

@Алиса234 · 11.03.2012, 21:00 **[ТС]**

не понимаю.

@Ev[G]eN · 11.03.2012, 22:52

Не по теме:

Сообщение от Алиса234

не понимаю.

а это уже лично Ваша проблема

@Алиса234 0 / 0 / 0 Регистрация: 11.03.2012 Сообщений: 8
		1
	Дано шестизначное число. Найти сумму нечетных цифр данного числа, использовать функцию 11.03.2012, 20:34. Показов 2391. Ответов 3 Метки нет (Все метки) дано шестизначное число найти сумму нечетных цыфр данного числа использовать функцию 0

@Алиса234 0 / 0 / 0 Регистрация: 11.03.2012 Сообщений: 8
	11.03.2012, 21:00 [ТС]	3
	не понимаю. 0

@Ev[G]eN
	11.03.2012, 22:52 Дано шестизначное число. Найти сумму нечетных цифр данного числа, использовать функцию #4
	Не по теме: Сообщение от Алиса234 не понимаю. а это уже лично Ваша проблема 0

Опции темы