Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/12: Рейтинг темы: голосов - 12, средняя оценка - 4.92
Pascal3Gs
0 / 0 / 0
Регистрация: 24.02.2013
Сообщений: 3
1

Счастливый билет

01.03.2013, 06:40. Просмотров 2176. Ответов 3
Метки нет (Все метки)

1)Троллейбусный билетик имеет номер из 5 цифр.определить по номеру билета, является ли он счастливым(сумма первых двух цифр равна сумме последних двух цифр).
2)автобусны билетик имеет номер из 6 цифр. Тоже определить является ли счастливым( сумма первых трех равна сумме последних трех).
3)электронный билет на самолет имеет номер из 7 цифр. Определить является ли он счастливым( сумма первых трех цифр равна сумме последних трех цифр).

Погомогите решить пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2013, 06:40
Ответы с готовыми решениями:

Задача про счастливый билет
На билете шесть цифр - номер билета. Является ли данный билет счастливым?...

Является ли данный билет счастливым? Счастливым считается билет, если сумма трех левых цифр равна сумме трех правых цифр
1. На билете пять цифр - номер билета. Является ли данный билет счастливым?...

Счастливый билетик
Здравствуйте!При решении задачи столкнулся с проблемой,буду благодарен за любую...

Определить билет с максимальным выйгрышем
123

Напечатать, выиграл ли купленный билет
Ввести с клавиатуры № лотерейного билета. Задать случайным образом 16 целых...

3
nicita13
12 / 12 / 11
Регистрация: 14.10.2012
Сообщений: 47
01.03.2013, 09:33 2
вот
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses
 crt;
var
 i:integer;
 k,s,ts:longint;
begin
 clrscr;
 s:=0;
 ts:=0;
 for i:=1 to 10 do
 begin
  inc(ts,i);
  inc(s,sqr(ts));
 end;
 for i:=4 downto 1 do
 begin
   inc(ts, 2*i);
   inc(s,sqr(ts));
 end;
 writeln('k = ',2*s);
 readkey;
         end.
или
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program Happy1;
{Количество счастливых билетов (вариант 1). Полный перебор с выделением цифр
числа}
uses
 crt;
var
 k,i,i1:longint;
 j:integer;
 a:array[1..6] of integer;
begin
 clrscr;
 k:=0;
 for i:=0 to 999999 do
 begin
  i1:=i;
  for j:=6 downto 1 do {Выделение цифр}
  begin
   a[j]:=i1 mod 10;
   i1:=i1 div 10;
  end;
  if (a[1]+a[2]+a[3]=a[4]+a[5]+a[6]) then
   inc(k);
  end;
 writeln('k= ',k);
 readkey;
end.
или
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Happy2;
{Количество счастливых билетов (вариант 2). Полный перебор, формируя цифры 
числа}
uses
 crt;
var
 k:longint;
 i1,i2,i3,i4,i5,i6:integer;
begin
 clrscr;
 k:=0;
 for i1:=0 to 9 do
  for i2:=0 to 9 do
   for i3:=0 to 9 do
    for i4:=0 to 9 do
     for i5:=0 to 9 do
      for i6:=0 to 9 do
       if (i1+i2+i3=i4+i5+i6) then
    inc(k);
 writeln('k=',k);
 readkey;
end.
могу еще скинуть пару вариантов
0
Pascal3Gs
0 / 0 / 0
Регистрация: 24.02.2013
Сообщений: 3
01.03.2013, 10:08  [ТС] 3
Это для какого номера?
0
nicita13
12 / 12 / 11
Регистрация: 14.10.2012
Сообщений: 47
01.03.2013, 11:48 4
Цитата Сообщение от Pascal3Gs Посмотреть сообщение
Это для какого номера?
извини, забыл. это программы определяют кол-во. сори. я просто только тему прочитал
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2013, 11:48

Среди данных шестизначных билетов найти "счастливый"
Счастливый билет - это билет, у которого сумма первых 3х и последних 3х чисел...

Определить, можно ли из цифр числа составить "счастливый" номер билета
Помогите пожалуйста,составить программу: Задан массив целых однозначных...

Никита и Илья как-то возвращаясь домой из школы нашли автобусный билет, на котором был шестизначный номер
Никита и Илья как-то возвращаясь домой из школы нашли автобусный билет, на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru