Question

Помогите , пожалуйстаа. Нужно составить программу

Answer 1

Var x:integer;
Begin
Readln(x);
If (x div 100 )=(x mod 100)
Then write('Билет счастливый')
Else write('Билет несчастливый');
End.

Answer 2

Попробуй делать через write и if