Обработка числовых данных

@ГЮЗЕЛЬКА · Регистрация: 01.12.2009

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

дано n-значное число типа longint.Подсчитать кол-во четных цифр в числе.ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО!!!!!!!

@Давид · 02.12.2009, 16:03

ГЮЗЕЛЬКА, Проверяйте.

Pascal

program hhh;
Uses crt;
Var n:longint;
    s:string;
    mas:array[1..100] of integer;
    c,e,i,k:integer;
begin
clrscr;
write ('N=');
Readln (n);
str (n,s);
for i:=1 to length(s) do begin
                         val (s[i],c,e);
                         mas[i]:=C;
                         end;
writeln;
for i:=1 to length(s) do
  if mas[i] mod 2 = 0 then k:=k+1;
writeln ('kol-vo chetnyx chisel =',k);
Readln
end.

@Puporev · 02.12.2009, 16:48

Pascal

k:=0;
while n>0 do
 begin
  i:=n mod 10;
  if i mod 2=0 then k:=k+1;
  n:=n div 10;
 end;

@ГЮЗЕЛЬКА 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 12
		1
	Обработка числовых данных 02.12.2009, 15:22. Показов 1235. Ответов 2 Метки нет (Все метки) дано n-значное число типа longint.Подсчитать кол-во четных цифр в числе.ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО!!!!!!! 0

	02.12.2009, 16:48

Опции темы

Обработка числовых данных

Решение