<span>артефакт,инстинкт,антарцит,оригинал</span>
Фасоль ( класс: двудольные - стержневая корневая система)
пшеница ( класс: однодольные - мочковатая корневая система
СМОТРИТЕ РЕШЕНИЕ НА ПРИКРЕПЛЁННОМ ФАЙЛЕ
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.
А чем тут помочь , если тут все уже решено?