Question

Помогите пожалуйста! Написать блок-схему и программу для Паскаль! Написать программу решения следующей задачи: Определить, является ли «счастливым» трамвайный билет с шестизначным номером («счастливым» считается билет, у которого сумма первых трёх чисел совпадает с суммой трёх последних чисел). Ответ вывести на печать.

Answer 1

Программа:
var n,a1,a2,s1,s2:integer;
begin
write('n = '); readln(n);
a1:=n div 1000;
s1:=(a1 div 100)+(a1 div 10 mod 10)+(a1 mod 10);
a2:=n mod 1000;
s2:=(a2 div 100)+(a2 div 10 mod 10)+(a2 mod 10);
if s1=s2 then writeln('Билет счастливый')
          else writeln('Билет не счастливый')
end.
Пример:
n = 123231
Билет счастливый

Блок-схема - в прилагаемом файле.

Answer 2

Постановка задачи

Вам необходимо написать блок-схему и программу на языке Паскаль, которая будет определять, является ли трамвайный билет с шестизначным номером "счастливым". Билет считается "счастливым", если сумма первых трех чисел номера билета совпадает с суммой трех последних чисел номера билета. Необходимо вывести ответ на печать.

Блок-схема

Перед написанием программы на Паскаль, рекомендуется создать блок-схему для лучшего понимания алгоритма решения задачи. Блок-схема может выглядеть следующим образом:

Начало
Ввод шестизначного номера билета
Вычисление суммы первых трех чисел номера билета
Вычисление суммы трех последних чисел номера билета
Сравнение сумм
Если сумма первых трех чисел равна сумме трех последних чисел, то
    Вывод "Билет является счастливым"
Иначе
    Вывод "Билет не является счастливым"
Конец

Программа на Паскаль

Следующий код представляет программу на языке Паскаль, которая решает задачу:

program LuckyTicket;

var
  ticketNumber, sumFirstThree, sumLastThree: Integer;

begin
  // Ввод шестизначного номера билета
  Write('Введите шестизначный номер билета: ');
  ReadLn(ticketNumber);

// Вычисление суммы первых трех чисел номера билета
  sumFirstThree := (ticketNumber div 100000) mod 10 + (ticketNumber div 10000) mod 10 + (ticketNumber div 1000) mod 10;

// Вычисление суммы трех последних чисел номера билета
  sumLastThree := (ticketNumber div 100) mod 10 + (ticketNumber div 10) mod 10 + ticketNumber mod 10;

// Сравнение сумм
  if sumFirstThree = sumLastThree then
    WriteLn('Билет является счастливым')
  else
    WriteLn('Билет не является счастливым');
end.

Объяснение программы

1. Пользователю предлагается ввести шестизначный номер билета. 2. С помощью операций деления и остатка от деления, программа вычисляет сумму первых трех чисел номера билета и сумму трех последних чисел номера билета. 3. Затем программа сравнивает эти две суммы. 4. Если сумма первых трех чисел равна сумме трех последних чисел, программа выводит сообщение "Билет является счастливым". В противном случае, программа выводит сообщение "Билет не является счастливым".

Пример работы программы

Введите шестизначный номер билета: 123456
Билет не является счастливым

Введите шестизначный номер билета: 123321
Билет является счастливым

Обратите внимание: В программе не предусмотрена проверка на ввод корректного шестизначного номера билета. Если пользователь введет число, не являющееся шестизначным, программа может дать некорректный результат или завершиться с ошибкой. В реальных приложениях следует добавить проверку на корректность ввода данных.