Ответы на вопрос:
Program sd;
uses crt;
var
a,b,c,x,s,y,z,r,p: integer;
Begin
clrscr;
Writeln('Введите номер билета:');
readln(x);
s:=x div 100000;
r:=x div 10000 mod 10;
y:=x div 1000 mod 10;
c:=x div 100 mod 10;
a:=x mod 100 div 10;
b:=x mod 10;
z:=y+r+s;
p:=a+b+c;
if z=p then
begin
write('билет счастливый');
writeln(' ',z,' = ',p);
end
else
writeln('билет не счастливый ' ,z,' <> ',p);
readln;
End.
uses crt;
var
a,b,c,x,s,y,z,r,p: integer;
Begin
clrscr;
Writeln('Введите номер билета:');
readln(x);
s:=x div 100000;
r:=x div 10000 mod 10;
y:=x div 1000 mod 10;
c:=x div 100 mod 10;
a:=x mod 100 div 10;
b:=x mod 10;
z:=y+r+s;
p:=a+b+c;
if z=p then
begin
write('билет счастливый');
writeln(' ',z,' = ',p);
end
else
writeln('билет не счастливый ' ,z,' <> ',p);
readln;
End.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
zhenyazhitenko09.08.2020 04:43
-
Аurikа03.02.2022 23:02
-
GreenExtreme599501.01.2021 02:13
-
Mishgan2131.12.2022 23:21
-
ilyawolk31613.03.2022 20:15
-
Leshik199721.02.2021 11:57
-
gilkin0101.02.2022 06:15
-
chukalina19.07.2021 15:43
-
del983210.09.2020 16:24
-
aikosha910.08.2021 11:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.