Написати програму перевірки суми цифр тризначного числа на парність. Число для перевірки вводить користувач. - id1698852820200622 от Kolyanbe360 22.06.2020 06:11

Question

Информатика: Написати програму перевірки суми цифр тризначного числа на парність. Число для перевірки вводить користувач. Вивести суму цифр та повідомлення сума цифр парна або сума цифр непарна залежно від результату перевірки. на 10+ число не тризначне, а довільне ціле число.​

Kolyanbe360 · Accepted Answer

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.

MOGZ ответил