Определить, является ли 8-чное число, введенное с клавиатуры четным

@E'l · Регистрация: 15.11.2011

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

определить,является ли 8-чное число,введенное с клавиатуры четным.

@Patrickstar · 06.12.2011, 18:05

{Из любой СС в 10сс)

Pascal

const
  a: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  n, r: real;
  rez, s, s2, s3: string;
  t, cc, ind, cc2, k,i,m: integer; 
function ToDec(var ss: string; cc: byte): integer;
var
  i, n, sum: integer;
begin
  sum := 0;
  n := length(ss);
  for i := 1 to n do
  begin
    dec(n);
    sum := sum + round((pos(ss[i], a) - 1) * exp(ln(cc) * n));
  end;
  ToDec := sum;
end;

@E'l · 06.12.2011, 18:53 **[ТС]**

не работает

@kz-gold · 06.12.2011, 19:35

if x mod 2=0 не?

@E'l · 06.12.2011, 20:34 **[ТС]**

да,так

@E'l 0 / 0 / 1 Регистрация: 15.11.2011 Сообщений: 10
		1
	Определить, является ли 8-чное число, введенное с клавиатуры четным 06.12.2011, 08:12. Показов 1739. Ответов 4 Метки нет (Все метки) определить,является ли 8-чное число,введенное с клавиатуры четным. 0

@E'l 0 / 0 / 1 Регистрация: 15.11.2011 Сообщений: 10
	06.12.2011, 18:53 [ТС]	3
	не работает 0

@kz-gold 5 / 5 / 4 Регистрация: 06.03.2010 Сообщений: 27
	06.12.2011, 19:35	4
	if x mod 2=0 не? 0

@E'l 0 / 0 / 1 Регистрация: 15.11.2011 Сообщений: 10
	06.12.2011, 20:34 [ТС]	5
	да,так 0

Определить, является ли 8-чное число, введенное с клавиатуры четным

Решение