Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
andrei1995
0 / 0 / 0
Регистрация: 10.06.2013
Сообщений: 11
1

Трамвайные билеты

10.06.2013, 10:40. Просмотров 851. Ответов 1
Метки нет (Все метки)

Cоставить программу подсчета количества ((счастливых)) трамвайных билетов . Билет называется счастливым , если сумма первых трех цифр номера билета равна сумме последних трех цифр номера.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2013, 10:40
Ответы с готовыми решениями:

Билеты по программированию
Добрый день.Ребят не могли бы вы помочь решить задачки : 1)Найти все нечетные...

Счастливые билеты.
Билет называют «счастливым», если в его номере сумма первых трех цифр равна...

Лотерейные билеты
Пусть таблица выигрышей лотереи представлена в виде двух массивов a1,a2...an и...

Счастливые билеты
посчитать счастливый билетик пример:билетик считаеться счастливым , если суммы...

Счастливые билеты
определить сколько существует "счастливых" автобусных билетов в одной серии с...

1
newyork7776
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,313
Завершенные тесты: 1
10.06.2013, 12:07 2
Лучший ответ Сообщение было отмечено andrei1995 как решение

Решение

билет состоит с 4 или 6 чисел?

Добавлено через 19 секунд
ааа понял 6

Добавлено через 20 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program qwedsazxc;
uses crt;
var k,s1,s2,n,a,b,c,d,e,f,i:integer;
begin
k:=0;
for i:=1 to 999999 do
begin
a:=((i div 100000) );
b:=((i div 10000) mod 10);
c:=((i div 1000) mod 10);
d:=((i div 100) mod 10);
e:=(i mod 100) div 10;
f:=(i mod 10);
s1:=(a+b+c);
s2:=(d+e+f);
if (s1 = s2) then begin Writeln(i);inc(k);end;
end;
Writeln('Answer = ',k);
end.
пишет билеты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program qwedsazxc;
uses crt;
var k,s1,s2,n,a,b,c,d,e,f,i:integer;
begin
k:=0;
for i:=1 to 999999 do
begin
a:=((i div 100000) );
b:=((i div 10000) mod 10);
c:=((i div 1000) mod 10);
d:=((i div 100) mod 10);
e:=(i mod 100) div 10;
f:=(i mod 10);
s1:=(a+b+c);
s2:=(d+e+f);
if (s1 = s2) then inc(k);
end;
Writeln('Answer = ',k);
end.
только количество
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2013, 12:07

Счастливые билеты
Товарищи нужна помощь в составлении программы .... :help: На части катушки с...

Счастливые билеты
Помогите решить)) Имеется часть катушки с автобусными билетами. Номер билета...

Счастливые билеты
Помогите пожалуйста.Обыскал весь форум но вроде такой именно задачи не было;...


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

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

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