Является ли число счастливым билетом в диапазоне от 0 до 999999?

@HikkaFill · Регистрация: 18.12.2014

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

определить является ли число счастливым билетом в диапазоне от 0 до 99999

@MSaint · 21.12.2014, 13:11

Если я тебя правильно понял, то:

Pascal

var a,s : integer;
begin
  s := random(1,99999); //счастливое число от 1 до 99999
  readln(a); //номер билета
  if a = s then writeln('YOU WIN!') //выиграл
  else writeln('You lose'); //проиграл
end.

Либо:

Pascal

var a,s : integer;
begin
  readln(s); //счастливое число от 1 до 99999
  readln(a); //номер билета
  if a = s then writeln('YOU WIN!') //выиграл
  else writeln('You lose'); //проиграл
end.

@MSaint · 21.12.2014, 17:24

Так вон про какие билеты то речь

@JuriiMW · 22.12.2014, 07:24

Функция «Счастливый билет» возвратит True, если в переданном числе сумма первых трёх цифр равна сумме последних трёх цифр:

Pascal

function LuckyTicket(N : Integer) : Boolean;
var S : Integer;
begin
  S := N mod 10; N := N div 10;
  S += N mod 10; N := N div 10;
  S += N mod 10; N := N div 10;
  S -= N mod 10; N := N div 10;
  S -= N mod 10; N := N div 10;
  S -= N;
  Result := S = 0;
end;

@APALoff · 22.12.2014, 09:37

Тема уже не то что "баян", а просто приелась...
Написать процедуру и функцию, которая определяет является ли билет счастливым

Поздравляю с успехом! Вы 1001-й посетитель форума, который пытается решить эту задачу.

@HikkaFill 0 / 0 / 0 Регистрация: 18.12.2014 Сообщений: 4
		1
	Является ли число счастливым билетом в диапазоне от 0 до 999999? 20.12.2014, 16:06. Показов 2781. Ответов 4 Метки нет (Все метки) определить является ли число счастливым билетом в диапазоне от 0 до 99999 0

@MSaint 0 / 0 / 1 Регистрация: 19.12.2014 Сообщений: 10
	21.12.2014, 17:24	3
	Так вон про какие билеты то речь 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	22.12.2014, 09:37	5
	Тема уже не то что "баян", а просто приелась... Написать процедуру и функцию, которая определяет является ли билет счастливым Поздравляю с успехом! Вы 1001-й посетитель форума, который пытается решить эту задачу. 0

Опции темы