Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Pascal3Gs
0 / 0 / 0
Регистрация: 24.02.2013
Сообщений: 3
#1

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

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

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

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

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

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

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

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

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

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

3
nicita13
12 / 12 / 3
Регистрация: 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 / 3
Регистрация: 14.10.2012
Сообщений: 47
01.03.2013, 11:48 #4
Цитата Сообщение от Pascal3Gs Посмотреть сообщение
Это для какого номера?
извини, забыл. это программы определяют кол-во. сори. я просто только тему прочитал
0
01.03.2013, 11:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2013, 11:48
Привет! Вот еще темы с ответами:

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

счастливый билет - Pascal
нужно составить программу которая определяет счастливый билет или нет номер билета состоит из 6 чисел вводиться его номер если сумма 1...

Счастливый билет - Pascal
для начала небольшие пояснения: В билете 6 цифр (билеты от 000001 до 999999) Счастливый билет , это тот, в котором сумма первых трёх...

Счастливый билет - Pascal
Облазил поисковики- ничего не нашел:( Вот задачка: Заранее всем спасибо !Текстовую часть задания набирайте вручную.


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

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

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