Автор Ѝльвира Алексеева задал вопрос в разделе Другие языки и технологии
Помогите решить пожалуйста! и получил лучший ответ
Ответ от 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.
Перекодирование NTSC в PAL
Если монтируете в DV-формате, то NTSC в Pal конвертируется с обязательным снятием интерлейса и
подробнее...
хэлп ми товарищи) как отключить клавиатуру touch pal в zte v 880e, , спасибо
настройки/язык и клавиатура/по умолчанию - выйдет список клавиатур - выбираем стандартную
подробнее...
Как установить PIL на Python 3.6? На официальном сайте PIL только для Python 2.
Бесплатная накрутка лайков, репостов, подписчиков.
проодвижение во всех соцсетях
подробнее...
Что такое FREEBOOT для x box? Если я его установлю то x box live будет работать? все сказано
xbox live будет для тебя закрыт навсегда иначе бан, фрибут это полный взлом даже с флешки играть
подробнее...
Что такое X Box?
Xbox — игровая приставка, разработанная и производимая компанией Microsoft. Впервые она поступила в
подробнее...
какой пол называют гомогаметным и какой гетерогаметным приведите пример
У людей Женский - гомогаметный (один тип гамет - все X), а мужской - гетерогаметный (2 типа гамет-
подробнее...
Как по дате рождения родителей можно узнать пол будущего ребенка???
Пожалуйста! Считайте!
«Обновление крови» . Известный метод программирования основан на
подробнее...
Является ли "прекрасный пол" слабым?..
"Сильный пол без слабого - слабосильный". Поэты и прозаики при определении женского пола, чаще
подробнее...
Пол евро в рублях это сколько??
ВОПРОС: Пол евро в рублях - это сколько?
--
ОТВЕТ
Во-первых:
1 Евро = 100
подробнее...
Как разгадать пароль на компе?
если в биосе то сбросить его путем вытаскивания батарейки
если в системе то
подробнее...
Как долго заряжать аккумулятор ААА
Время заряда: 1,4*930/100=13 часов.
Перед применением свежекупленные NiMH аккумуляторы
подробнее...
Через сколько после зачатия определяется пол будущего ребенка?
Каждой будущей матери хочется как можно раньше узнать пол своего малыша. При помощи медицинских
подробнее...
можно ли как то рассчитать пол ребенка перед его зачатием?
Первый мы назовем «хромосомный»
Так как он непосредственно связан с генетической информацией о
подробнее...