Question

Четырехзначное число,у которого первая цифра равно второй а третья четвертой,является квадратом двузначного числа. Найти эти числа.(паскаль,циклы)

Answer 1

Uses crt;
var i,j:integer;
begin
for i:=1000 to 9999 do
for j:=10 to 99 do
if ((i div 1000)=(i div 100)mod 10)
and ((i div 10)mod 10=i mod 10)
and (i=j*j) then writeln(i);
end.

Answer 2

Давайте решим эту задачу с помощью циклов в языке программирования Паскаль.

Сначала создадим два вложенных цикла: внешний для перебора всех возможных двузначных чисел, а внутренний для перебора всех возможных четырехзначных чисел.

program FindNumbers;
var
  twoDigit, fourDigit, square: integer;
begin
  for twoDigit := 10 to 99 do
  begin
    for fourDigit := 1000 to 9999 do
    begin
      // Проверяем условие первой цифры равной второй и третьей равной четвертой
      if (twoDigit div 10 = twoDigit mod 10) and (fourDigit div 100 = fourDigit mod 10) then
      begin
        square := twoDigit * twoDigit;
        // Если квадрат двузначного числа равен четырехзначному числу, выводим результат
        if square = fourDigit then
          writeln('Двузначное число: ', twoDigit, ', Четырехзначное число: ', fourDigit);
      end;
    end;
  end;
end.

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

Пример вывода программы: ``` Двузначное число: 44, Четырехзначное число: 1936 Двузначное число: 55, Четырехзначное число: 3025 ```