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

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

13.04.2011, 10:25. Просмотров 3402. Ответов 3
Метки нет (Все метки)

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

2. Вы положили деньги в сбербанк на срочный депозит на три месяца из расчета 60% годовых. Напишите программу, которая вычислит причитающуюся вам через три месяца сумму!!!

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

Счастливым будет считаться такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр
помогите студентке:cry: Счастливым будет считаться такое число из шести цифр,...

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

Выяснить, является ли билет "счастливым"
Трамвайный билет имеет шестизначный номер.Выяснить, является ли билет...

Найти количество шестизначных билетов у которых сумма первых 3 десятичных цифр равно сумме трех последних десятичных цифр
3) дданы целые положительные M и N (100000<=M<= N) найти колличество билетов с...

Четырехзначное число называется «счастливым», если сумма двух первых и двух последних его цифр совпадает
Четырехзначное число называется «счастливым», если сумма двух первых и двух...

3
Puporev
Модератор
54701 / 42113 / 29079
Регистрация: 18.05.2008
Сообщений: 99,397
13.04.2011, 12:27 2
Цитата Сообщение от Luzer_86 Посмотреть сообщение
На билете пять цифр
Цитата Сообщение от Luzer_86 Посмотреть сообщение
если сумма трех левых цифр равна сумме трех правых цифр
Не знал что 3+3=5.....
0
WhiteDC
9 / 9 / 7
Регистрация: 16.02.2010
Сообщений: 23
13.04.2011, 12:39 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program bilet;
var
  bilet:array[1..5] of integer;
  i,s_l,s_p:integer;
begin
  s_l:=0;
  s_p:=0;
  writeln('Введите цифры билета через пробел:');
  for i:=1 to 5 do
   read(bilet[i]);
  for i:=1 to 3 do
   s_l:=s_l+bilet[i];
  for i:=5 to 3 do
   s_p:=s_p+bilet[i];
  if s_l=s_p then
   writeln('Билет счастливый!');
  else
   writeln('Билет не счастливый!');
  readln;
end.
0
x@kirsch@)))
9 / 9 / 5
Регистрация: 11.04.2011
Сообщений: 29
13.04.2011, 18:04 4
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
27
28
29
function sum( zis:integer): integer;
var 
 zis1,s,d: integer;
begin 
 zis1:=zis;
 while zis1<>0 do
 begin 
  d:=zis1 mod 10;
  s:=s+d ;
  zis1:=zis1 div 10;
  
 end;
 sum:=s
end;
var bil,bil1,bil2 :integer;
sn,sk: integer;
begin 
writeln('введите номер билета'); readln(bil);
bil1:=bil;
bil1:= bil1 mod 1000;// 3 последних числа
bil2:=bil div 1000; // 3 первых числа
writeln(bil1,'   ',bil2);
sn:=sum(bil1); sk:=sum(bil2);
writeln(sn,'   ',sk);
if sn=sk then 
   writeln ('билет счастливый')
   else 
   writeln ('билет не счастливый')
   end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2011, 18:04

Составить программу, подсчитывающую количество "счастливых" чисел, если сумма трех цифр равна n.
Помогите составить программу: Шестизначное число называется &quot;счастливым&quot;, если...

Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых...

Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних цифр,а само число делится на 6 и 27
Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних...


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

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

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