Автор Ѝльвира Алексеева задал вопрос в разделе Другие языки и технологии
Помогите решить пожалуйста! и получил лучший ответ
Ответ от 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.
если будут вопросы пиши
Зачем так сложно? Все можно сделать гораздо проще!
Program a1;
Uses CRT;
var a,b,c,d,e,z,y,l1,l2:integer;
begin
writeln('Задай 6 значный номер билета: ');
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:=a div 100 mod 10;
e:=a div 1000 mod 10;
z:=a div 10000 mod 10;
y:=a div 100000 mod 10;
l1:=b+c+d;
l2:=e+z+y;
if l1=l2
then begin
Writeln('Ваш билет счастливый! Поздравляю!');
end
else begin
Writeln('Ваш билет не счастливый! Мне очень жаль!');
end;
end.