Question

составьте программу паскаль для нахождения всех счастливых автобусных билетов чтобы из низ извлекался квадратный корень

Answer 1

Программа, которая сравнивает первые 3 со вторыми 3мя ниже, но я не понял к чему было упоминание корня в первоначальном задании

Program bilet;
var

a,b,c:longint;
i:byte;
begin
writeln('vvrdite nomer');
readln(a);
b:=0;
c:=0;
for i:=1 to 6 do
    if i<4 then begin
       b:=b+(a mod 10);
       a:=a div 10;
       end
    else begin
         c:=c+(a mod 10);
         a:=a div 10;
    end;
if b=c then writeln('schastlivuy ',c,' = ',b)
else writeln('uvyu ',c,' <> ',b);
readln;
end.

Answer 2

Для нахождения всех счастливых автобусных билетов, где из числа извлекается квадратный корень, нужно рассмотреть все возможные 6-значные числа, проверить, является ли сумма квадратных корней трёхзначным числом и вывести эти числа. Ниже приведена программа на языке Pascal:

pascalCopy code
program HappyBusTickets;

const
  MIN_TICKET_NUMBER = 100000;
  MAX_TICKET_NUMBER = 999999;

function IsHappyTicket(number: Integer): Boolean;
var
  digitsSum: Integer;
  i: Integer;
begin
  digitsSum := 0;
  while number > 0 do
  begin
    digitsSum := digitsSum + (number mod 10);
    number := number div 10;
  end;

  IsHappyTicket := (Sqrt(digitsSum) = Trunc(Sqrt(digitsSum)));
end;

var
  ticketNumber: Integer;

begin
  WriteLn('Счастливые автобусные билеты, у которых из числа извлекается квадратный корень:');
  for ticketNumber := MIN_TICKET_NUMBER to MAX_TICKET_NUMBER do
  begin
    if IsHappyTicket(ticketNumber) then
      WriteLn(ticketNumber);
  end;
end.

Примечание:

• Мы определяем функцию IsHappyTicket, которая проверяет, является ли сумма цифр числа (в данном случае билета) таким числом, из которого можно извлечь квадратный корень с целым результатом.
• Затем мы перебираем все возможные 6-значные числа (от 100000 до 999999) и выводим те из них, которые являются счастливыми автобусными билетами с условием извлечения квадратного корня из суммы цифр.