Среди чисел 1 до n найдите и выведите на экран такие,запись которых с последними цифрами их квадрата (например 6 в квадрате=36).n введите с клавиатуры.буду за решение(и если вас не затруднит объяснение,т.к я новенький в этом деле и хотел бы научиться у знающих людей) за внимание.

Отдел +; использует вывод из "", приём; пер   n, сч, ч, кв: цел; указ   n : = приём.число();   от сч : = 0 до n вып     кв : = сч * сч;     ч : = сч;     кольцо         пока ч > 0 и кв > 0 вып         если ч остаток 10 # кв остаток 10 то           выход         кон;         ч : = ч делить 10;         кв : = кв делить 10       кон;       вывод.чцел("^%d", сч, 0, 0, 0)     кон   кон кон . отдел "приём", раз уж издатель не успел его включить в выпуск (хотя стоило бы рассматривать это как стандартный ввод): отдел приём;   использует     ос из "",     кос из "",   ввод из "",     вывод из "",     знак из "";   строка-(строка+: ряд из знак);   (* текстовая строка *)   пер     отклавиш:   ввод.отклавиш;     отмышки: ввод.отмышки;     счётчик: цел;   указ     счётчик : = 0;     кольцо       если кос.опрос(отклавиш, отмышки) = ввод.клавиши то         если отклавиш.знак = 0dx то           если счётчик < размер(строка) то строка[счётчик] : = 0x кон;           выход         аесли отклавиш.код = 08h то             если счётчик > 0 то               строка[счётчик-1] : = 0x; уменьшить(счётчик);                 вывод.знакцепи(отклавиш.знак); вывод.знакцепи(" ");                 вывод.знакцепи(отклавиш.знак)             кон         аесли (отклавиш.код = 2dh) и (ос.размерцепочкиобменника() # 0) то           пока счётчик > 0 вып             строка[счётчик-1] : = 0x; уменьшить(счётчик);             вывод.знакцепи(8x); вывод.знакцепи(" "); вывод.знакцепи(8x)           кон;           ос.цепочкуизобменника(строка);           если ос.размерцепочкиобменника() > размер(строка) то             счётчик : = размер(строка)           иначе счётчик : = ос.размерцепочкиобменника() кон;           вывод.цепь(строка)         аесли отклавиш.знак = 0x то         иначе           если счётчик < размер(строка) то             строка[счётчик] : = отклавиш.знак;               увеличить(счётчик);               вывод.знакцепи(отклавиш.знак)           кон         кон       иначе ос.спать(50) кон     кон кон строка;   : цел; (* целое число *) пер     отклавиш: ввод.отклавиш;     отмышки: ввод.отмышки;     счётчик, сч: цел;     результат: цел;     буфер: доступ к ряд из знак;     отрицательное: ключ; указ     результат : = 0; счётчик : = 0; отрицательное : = откл;     кольцо       если кос.опрос(отклавиш, отмышки) = ввод.клавиши то         если отклавиш.знак = 0dx то           если отрицательное то возврат -результат иначе возврат результат кон         аесли отклавиш.код = 08h то           если счётчик > 0 то           результат : = результат делить 10;             вывод.знакцепи(отклавиш.знак); вывод.знакцепи(" "); вывод.знакцепи(отклавиш.знак); уменьшить(счётчик)         аесли отрицательное то           отрицательное : = откл;           вывод.знакцепи(отклавиш.знак); вывод.знакцепи(" "); вывод.знакцепи(отклавиш.знак)         кон         аесли (отклавиш.код = 2dh) и (ос.размерцепочкиобменника() # 0) то           пока счётчик > 0 вып             уменьшить(счётчик); вывод.знакцепи(8x); вывод.знакцепи(" "); вывод.знакцепи(8x)           кон;           если отрицательное то           отрицательное : = откл; вывод.знакцепи(8x); вывод.знакцепи(" "); вывод.знакцепи(8x)         кон;         результат : = 0;           создать(буфер, ос.;           ос.цепочкуизобменника(буфер^);           если (буфер[0] > = "0") и (буфер[0] < = "9") то             результат : = результат * 10 + (вцел(буфер[0]) - вцел("0"));             вывод.знакцепи(буфер[0]); увеличить(счётчик)           аесли буфер[0] = "-" то вывод.знакцепи("-"); отрицательное : = вкл кон;         от сч : = 1 до размер(буфер^)-1 вып             если (буфер[сч] > = "0") и (буфер[сч] < = "9") то               результат : = результат * 10 + (вцел(буфер[сч]) - вцел("0"));               вывод.знакцепи(буфер[сч]); увеличить(счётчик)             кон           кон;           буфер : = пусто         аесли (отклавиш.знак = "-") и (не отрицательное) то           если результат = 0 то отрицательное : = вкл; вывод.знакцепи("-") кон       аесли отклавиш.знак = 0x то         аесли (результат < макс(цел) делить 10) и ((отклавиш.знак > = "0") и (отклавиш.знак < = "9")) то           результат : = результат * 10 + (вцел(отклавиш.знак) - вцел("0"));           вывод.знакцепи(отклавиш.знак); увеличить(счётчик)         кон       иначе ос.спать(50) кон     кон кон число;   ждать-; (* простаиваем, пока не будет нажата любая клавиша *) пер     отклавиш: ввод.отклавиш;     отмышки: ввод.отмышки; указ     пока кос.опрос(отклавиш, отмышки) # ввод.клавиши вып       ос.спать(50)     кон кон ждать;   кон приём.

1. современный вариант // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   range(1,n).select(i-> (i.tostring,(i*i).       where(t-> t[0]=t[1].right(t[0].; end. пример n= 1000 (1,1) (5,25) (6,36) (25,625) (76,5776) (376,141376) (625,390625) 2. а вот так примерно учат в большинстве школ var   n,i,j,li,li2: integer;   si,si2: string; begin   write('n= '); read(n);   for i: =1 to n do begin       str(i,si);       li: =length(si);       str(i*i,si2);       li2: =length(si2);       si2: =copy(si2,li2+1-li,li);       if si=si2 then write('(',si,',',i*i,') ')       end end.

Разбиваем число на целую и дробную часть. переводим целую часть последовательным делением на 8 и записываем остатки с конца в начало   87 в 8 сс - 127   87 в 16 сс - 57 переводим дробную часть умножением до тех пор пока дробная часть не будет равна 0. 0,25 в 8 сс - 0,2 0,25 в 16 сс - 0,4 ответ 87,25 (10сс)=127,2  (8сс)               87,25 (10сс)=57,4 (16сс)