Получить все шестизначные счастливые номера

@ZORRXXX · Регистрация: 08.08.2012

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

Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, в котором сумма ею первых трех цифр равна сумме его последних трех цифр. (Определить функцию для расчета суммы цифр трехзначного числа.)

@liznyk42 · 17.12.2012, 19:45

Сообщение от ZORRXXX

Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, в котором сумма ею первых трех цифр равна сумме его последних трех цифр. (Определить функцию для расчета суммы цифр трехзначного числа.)

все просто

Pascal

 program test;
 var
 bilet : longint;
 a, b, c, d, e, f : integer;
 begin
  writeLn('Введите 6значный номер билета: ');
  readLn(bilet);
  a := bilet div 100000;
  b := bilet div 10000 mod 10;
  c := bilet div 1000 mod 10;
  d := bilet div 100 mod 10;
  e := bilet div 10 mod 10;
  f := bilet mod 10;
  if a + b + c <> d + e + f then
   writeLn('Ваш билет проигрышный!')
  else
   writeLn('Ваш билет выигрышный: ');
   readLn;
 end.

@Slim86r · 29.12.2012, 13:47

liznyk42, может я не прав, но вроде бы надо весь список, а не проверять по одному...

Pascal

var
i:longint;
a,b,c,d,e,f:integer;
begin
for i:=100000 to 999999  
  a:=i div 100000;
  b:=i div 10000 mod 10;
  c:=i div 1000 mod 10;
  d:=i div 100 mod 10;
  e:=i div 10 mod 10;
  f:=i mod 10;
  if a+b+c=d+e+f then
  write(i);
end.

@ZORRXXX 0 / 0 / 1 Регистрация: 08.08.2012 Сообщений: 90
		1
	Получить все шестизначные счастливые номера 17.12.2012, 18:50. Показов 12648. Ответов 2 Метки нет (Все метки) Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, в котором сумма ею первых трех цифр равна сумме его последних трех цифр. (Определить функцию для расчета суммы цифр трехзначного числа.) 0

	29.12.2012, 13:47

Получить все шестизначные счастливые номера

Решение