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.

Объяснение: