Натуральное число называется автоморфным , если оно равно последним цифрам своего квадрата. например, 25^2=625 . напишите программу, которая находит все автоморфные числа на отрезке [ a , b ] . входные данные входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. гарантируется, что a ≤ b . выходные данные программа должна вывести в одну строчку все автоморфные числа на отрезке [ a , b ] , разделив их пробелами. если таких чисел нет, программа должна вывести число -1. примеры входные данные 20 100 выходные данные 25 76 на паскале, через циклы, .

PascalABC.NET

begin
  var flag := true;
  var a := readinteger;
  var b := readinteger;
  for var i := a to b do
    if (i * i).ToString.EndsWith(i.ToString) then
    begin
      write(i, ' ');
      flag := false;
    end;
  if flag then write(-1)
end.

Информа́ция (от лат. informātiō — «разъяснение, представление, понятие о ч.-л.», от лат. informare — «придавать вид, форму, обучать; мыслить, воображать») — сведения, независимо от формы их представления, воспринимаемые человеком или специальными устройствами как отражение фактов материального мира в процессе коммуникации.

Информация — это не материя и не энергия, информация — это информация

Норберт Винер

Определения понятия «информация» из международных стандартов:

-знания о предметах, фактах, идеях и т. д., которыми могут обмениваться люди в рамках конкретного контекста;

-знания относительно фактов, событий, вещей, идей и понятий, которые в определённом контексте имеют конкретный смысл.

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,h:real;
  Write('Введите a,b,h: '); Read(a,b,h);
  var n:=Trunc((b-a)/h);
  for var i:=0 to n do begin
    var x:=a+i*h;
    var y:=cos(x)*sqrt(x);
    Writeln(x:6:3,y:15:5)
    end
end.

Пример
Введите a,b,h: 0.2 3.2 0.3
 0.200        0.43830
 0.500        0.62054
 0.800        0.62315
 1.100        0.47574
 1.400        0.20111
 1.700       -0.16799
 2.000       -0.58852
 2.300       -1.01046
 2.600       -1.38169
 2.900       -1.65348
 3.200       -1.78580