x pol

Ответ от Andrei[гуру]
Для решения этой задачи тип integer не подходит т. к. предел типа данных integer = 32767, поэтому рекомендуется использовать тип LongInt
для решения этой задачи необходимо использовать операции div(целая часть от целочисленного деления) и mod(остаток от целочисленного деления)
program p1;
uses crt;
var x,pol1,pol2,s1,s2 : LongInt;
BEGIN
writeln('Введите номер билета');
readln(x);
pol1:=x div 1000;
pol2:= x mod 1000;
writeln(MaxLongInt);
writeln(x);
writeln(pol1);
writeln(pol2);
s1:=0;
while pol1 <> 0 do
begin
writeln(pol1);
s1:=s1+(pol1 mod 10);
pol1:=pol1 div 10;
end;
s2:=0;
while pol2 <> 0 do
begin
writeln(pol2);
s2:=s2+(pol2 mod 10);
pol2:=pol2 div 10;
end;
if s1=s2 then writeln('Билет счастливый')
else writeln('Билет несчастливый');
END.
если будут вопросы пиши