Определить, является ли заданное шестизначное число счастливым

@asdso · Регистрация: 04.10.2010

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

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

@DLev · 22.12.2010, 19:53

Delphi

var
a1,a2,a3,a4,a5,a6:integer;
numer:integer;
begin
numer:=656467;
a1:=numer div 100000;
numer:=numer mod 100000;
a2:=numer div 10000;
numer:=numer mod 10000;
a3:=numer div 1000;
numer:=numer mod 1000;
a4:=numer div 100;
numer:=numer mod 100;
a5:=numer div 10;
numer:=numer mod 10;
a6:=numer;
if (a1+a2+a3)=(a4+a5+a6) then
  ShowMessage('является')
  else ShowMessage('не является');
end;

@asdso 0 / 0 / 0 Регистрация: 04.10.2010 Сообщений: 30
		1
	Определить, является ли заданное шестизначное число счастливым 22.12.2010, 18:46. Показов 4720. Ответов 1 Метки нет (Все метки) Определить, является ли заданное шестизначное число счастливым. (Счастливым называют такое шестизначное число, у которого сумма его первых трех цифр равна сумме его по-следних трех цифр.) 0

	22.12.2010, 19:53

Опции темы

Определить, является ли заданное шестизначное число счастливым

Решение