program z1;
var a:integer;
begin
write('Введите шестизначное число: ');
readln(a);
if a div 1000 div 100 + a div 1000 mod 100 div 10 + a div 1000 mod 10 = a mod 1000 div 100 + a mod 1000 div 10 mod 10 + a mod 1000 mod 10
then write ('счастливый билет')
else write ('обычный билет')
end.
Объяснение:
Вводим число
Если сумма первых 3 цифр равна сумме последних 3 цифр, то билет счастливый, иначе обычный
a div 1000 - первые 3 цифры
a div 1000 div 100 - первая цифра первых 3 цифр
a div 1000 mod 100 div 10 - вторая цифра первых 3 цифр
a div 1000 mod 10 - третья цифра первых 3 цифр
a mod 1000 - последние 3 цифры
a mod 1000 div 100 - первая цифра последних 3 цифр
a mod 1000 div 10 mod 10 - вторая цифра последних 3 цифр
a mod 1000 mod 10 - третья цифра последних 3 цифр
var
i,r,x,y:integer;
begin
Write('Вычисление х в степени y, введите х,y: ');
Readln(x,y);
r:=x;
for i:=2 to y do r:=r*x;
Writeln('Результат: ',r)
end.
Тестовый прогон:
Вычисление х в степени y, введите х,y: 2 10
Результат: 1024
Вариант для любителей начинать циклы с единицы.
var
i,r,x,y:integer;
begin
Write('Вычисление х в степени y, введите х,y: ');
Readln(x,y);
r:=1;
for i:=1 to y do r:=r*x;
Writeln('Результат: ',r)
end.