
Михаил хочет определять, счастливый или обычный билет Он вводит в программу первые 3 и последние
3 цифры, как шестизначное число.1+3+2=5+1+0Даю 50 баллов

Ответы на вопрос

Ответ:
program z1;
var a:integer;
begin
write('Введите шестизначное число: ');
readln(a);
if a div 1000 div 100 + a div 1000 mod 100 div 10 + a div 1000 mod 10 = a mod 1000 div 100 + a mod 1000 div 10 mod 10 + a mod 1000 mod 10
then write ('счастливый билет')
else write ('обычный билет')
end.
Объяснение:
Вводим число
Если сумма первых 3 цифр равна сумме последних 3 цифр, то билет счастливый, иначе обычный
a div 1000 - первые 3 цифры
a div 1000 div 100 - первая цифра первых 3 цифр
a div 1000 mod 100 div 10 - вторая цифра первых 3 цифр
a div 1000 mod 10 - третья цифра первых 3 цифр
a mod 1000 - последние 3 цифры
a mod 1000 div 100 - первая цифра последних 3 цифр
a mod 1000 div 10 mod 10 - вторая цифра последних 3 цифр
a mod 1000 mod 10 - третья цифра последних 3 цифр



Для определения, является ли билет счастливым, Михаил должен сложить первые три цифры и последние три цифры билета, а затем сравнить результаты.
Если сумма первых трех цифр равна сумме последних трех цифр, то билет считается счастливым. Иначе билет считается обычным.
Пример: Пусть Михаил ввел билет с номером 132510.
Сумма первых трех цифр: 1 + 3 + 2 = 6 Сумма последних трех цифр: 5 + 1 + 0 = 6
Сумма первых трех цифр равна сумме последних трех цифр (6 = 6), поэтому этот билет считается счастливым. Выдаем Михаилу 50 баллов.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili