fork download
copy 
  1. program LuckyTicket;
  2.  
  3. uses
  4.   SysUtils;
  5.  
  6. var
  7.   Numbers: array[1..6] of Integer;
  8.   Sum1, Sum2, i: Integer;
  9.   IsLucky: Boolean;
  10.  
  11. begin
  12.   Randomize;
  13.   IsLucky := False;
  14.  
  15.   while not IsLucky do
  16.   begin
  17.     // Генерируем 6 случайных чисел от 0 до 9
  18.     for i := 1 to 6 do
  19.       Numbers[i] := Random(10);
  20.  
  21.     // Считаем суммы первых трёх и последних трёх чисел
  22.     Sum1 := Numbers[1] + Numbers[2] + Numbers[3];
  23.     Sum2 := Numbers[4] + Numbers[5] + Numbers[6];
  24.  
  25.     // Проверяем условие "счастливого билета"
  26.     if Sum1 = Sum2 then
  27.     begin
  28.       IsLucky := True;
  29.       Writeln('Счастливый билет!');
  30.       Writeln('Числа: ', Numbers[1], ' ', Numbers[2], ' ', Numbers[3], ' ', Numbers[4], ' ', Numbers[5], ' ', Numbers[6]);
  31.     end;
  32.   end;
  33.  
  34.   Readln;
  35. end.
  36.  
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Счастливый билет!
Числа: 0 2 9 4 0 7
https://ideone.com/DHgokQ
language:
Pascal (fpc 3.0.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!