Задание:
Определить, является ли «счастливым» трамвайный билет с шестизначным номером ( «счастливым» считается билет, у которого сумма первых трех чисел совпадает с суммой трех последних чисел). Составить блок-схему
Решение:
Program Task; Var a: Array of Integer; n, b, c, i: Integer; Begin Write ('Введите номер билета: №'); ReadLn (n); b: =n; While b <> 0 Do Begin b: =b Div 10; c: =c+1; End; If (c < 1) Or (c > 6) Then WriteLn ('Неверный номер билета. Завершение программы.') Else Begin SetLength (a, c); b: =n; For i: =c — 1 DownTo 0 Do Begin a[i]: =b Mod 10; b: =b Div 10; End; If (a[0]+a[1]+a[2])=(a[3]+a[4]+a[5]) Then WriteLn ('Билет «счастливый»! ') Else WriteLn ('Не повезло'); End; ReadLn; End.
Знаете другой ответ?