Question

Составьте программу, которая генерирует случайное четырёхзначное число от 1000 до 9999 (номер автобусного билета), выводит его на экран и определяет, является ли билет "счастливым" (сумма первых двух цифр равна сумме последних двух цифр). ПАСКАЛЬ

Answer 1

Ответ:

program Bilet;

var k1,k2,k3,k4,n: integer;

begin

 n := Random (9000)+1000;

 Writeln (n);

 k1 := n div 1000;

 n := k - 1000*k1;

 k2 := n div 100;

 n := k - 100*k2;

 k3 := n div 10;

 n := k - 10*k3;

 k4 := n;

 if (k1+k2) = (k3+k4) then

   Writeln ('Счастливый билет!!!');

end.

Объяснение:

Answer 2

В Паскале можно использовать следующий код для создания программы, которая генерирует случайное четырёхзначное число, выводит его на экран и определяет, является ли билет "счастливым":

program LuckyTicketGenerator;

var
  ticketNumber, firstPart, secondPart: integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

// Генерация случайного четырёхзначного числа от 1000 до 9999
  ticketNumber := Random(9000) + 1000;

// Разделение числа на две части
  firstPart := ticketNumber div 100;
  secondPart := ticketNumber mod 100;

// Вывод сгенерированного числа
  writeln('Сгенерирован номер билета: ', ticketNumber);

// Проверка на "счастливость"
  if (firstPart div 10 + firstPart mod 10) = (secondPart div 10 + secondPart mod 10) then
    writeln('У вас счастливый билет!')
  else
    writeln('Этот билет не счастлив.');

// Ожидание ввода перед закрытием программы (необходимо для отображения результатов)
  readln;
end.

Этот код использует встроенную функцию `Random` для генерации случайного числа от 1000 до 9999. Затем программа разделяет число на две части, вычисляет сумму цифр в каждой части и сравнивает их для определения, является ли билет "счастливым".