С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Rezooffline
0 / 0 / 0
Регистрация: 18.09.2017
Сообщений: 4
1

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

22.10.2017, 16:53. Просмотров 963. Ответов 3
Метки нет (Все метки)

4. Определить, является ли заданное шестизначное число счастливым. (Счастливым называется такое шестизначное число, у которого сумма трех первых цифр равна сумме трех последних.)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2017, 16:53
Ответы с готовыми решениями:

Определить, являтся ли заданное шестизначное число счастливым
Определить, являтся ли заданное шестизначное число счастливым(Счастливым...

Определить, является ли заданное число простым
написать программу которая проверяет является ли целое число введенное с клав....

Определить, является ли заданное натуральное число палиндромом
Составить программу, проверяющую, является ли заданное натуральное число...

Определить: является ли заданное число степенью числа 3
Определить: является ли заданное число степенью числа 3

Определить является ли заданное число степенью числа 5
первая задача 1. Даны последовательность вещественных чисел a1,a2,…,a15,...

3
Dmitry1703
0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 14
22.10.2017, 20:13 2
Возможно если через преобразование в строку делать, то проще будет.
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
Program chislo;
var x, Digit,i,second,first: Integer;
begin
 ReadLn(X);
 second:=0;
 first:=0;
 for i:=1 to 3 do
   begin
     Digit := X mod 10;
     X := X div 10;
     second:=second+digit;      
   end;
for i:=1 to 6 do
   begin 
     Digit := X mod 10;
     X := X div 10;
     first:=first+digit;      
   end;
If second = first then
  begin
    Writeln('Счастливое');
  end
else 
    writeln('Не счастливое');
end.
0
ArtemFM
247 / 228 / 165
Регистрация: 10.09.2015
Сообщений: 850
23.10.2017, 02:51 3
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
function readConsole(text : String; startRange, endRange: integer) : integer;
begin
   repeat
      write(text, '[', startRange, ' <= число <= ', endRange, ']: ');
      readln(result);
   until (result >= startRange) and (result <= endRange);
   readConsole := result;
end;
 
function isHappyNumber(number : integer) : boolean;
begin
   var sum := 0;
   var digit := 0;
   for var i := 1 to 6 do
   begin
      digit := number mod 10;
      number := number div 10;
      if i <= 3 then inc(sum, digit)
      else dec(sum, digit);
   end;
   isHappyNumber := sum = 0;
end;
 
begin
   var number := readConsole('Введите число', 100000, 999999);
   if isHappyNumber(number) then writeln('Число счастливое!')
   else writeln('Число не счастливое!');
end.
0
Cyborg Drone
Модератор
5480 / 3297 / 2483
Регистрация: 17.08.2012
Сообщений: 10,595
24.10.2017, 00:46 4
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

ArtemFM, коды пишите на диалекте паскаля, для которого предназначена ветка форума, в крайнем случае, указывайте, на каком именно диалекте паскаля написана Ваша программа. В Pascal ABC Ваша программа, написанная на Pascal ABC.NET, компилироваться не будет.

Вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var hi, lo, s, n: integer;
begin
  repeat
    write('n in [100000..999999];  n = ');
    readln(n);
  until (100000 <= n) and (n <= 999999);
  s := 0;
  lo := n mod 1000;
  hi := n div 1000;
  for n := 1 to 3 do
    begin
      s := s + hi mod 10 - lo mod 10;
      hi := hi div 10;
      lo := lo div 10
    end;
  writeln('Lucky number: ', s = 0)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.10.2017, 00:46

Определить, что заданное число N является степенью числа a
Составить линейную программу,печатающую значение true,если указанное...

Определить в каких системах счисления ( с основанием от 2 до 10 ) заданное число является палиндромом
Привет всем, нужна помощь с такой задачкой на Pascal ABC: Определить в каких...

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


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

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

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