Вопрос задан 26.06.2023 в 08:12. Предмет Информатика. Спрашивает Кушпелева Софья.

Михаил хочет определять, счастливый или обычный билет Он вводит в программу первые 3 и последние

3 цифры, как шестизначное число.1+3+2=5+1+0Даю 50 баллов
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Ященко Никита.

Ответ:

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 цифр

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для определения, является ли билет счастливым, Михаил должен сложить первые три цифры и последние три цифры билета, а затем сравнить результаты.

Если сумма первых трех цифр равна сумме последних трех цифр, то билет считается счастливым. Иначе билет считается обычным.

Пример: Пусть Михаил ввел билет с номером 132510.

Сумма первых трех цифр: 1 + 3 + 2 = 6 Сумма последних трех цифр: 5 + 1 + 0 = 6

Сумма первых трех цифр равна сумме последних трех цифр (6 = 6), поэтому этот билет считается счастливым. Выдаем Михаилу 50 баллов.

0 0

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос