Среди чисел 1.n найти все такие, запись которых совпадает с последними цифрами записи их квадрата

@ikoz · Регистрация: 30.09.2015

Author24 — интернет-сервис помощи студентам

Задача: Заданное натуральное двузначное число n. Среди чисел 1, 2, ..., n найти все такие, запись которых совпадает с последними цифрами записи их квадрата.

Нашёл код паскаль, но в нём не разбираюсь (вот он если кому поможет):

Pascal

uses crt;
var
   n,sq,i,c2,c1,code,k:integer;
   s,s1:string;
begin
write('ГўГўГҐГ¤ГЁГІГҐ n:');
readln(n);
//-------------------------------------
writeln('Г¶ГЁГґГ°Г» Гў Г¤ГЁГ*ГЇГ*Г§Г®Г*ГҐ [1..n], Г±Г®ГўГЇГ*Г¤Г*ГѕГ№ГЁГҐ Г± Г¶ГЁГґГ°Г*Г¬ГЁ Г®ГЄГ®Г*Г·Г*Г*ГЁГї Г±ГҐГЎГї Гў ГЄГўГ*Г¤Г°Г*ГІГҐ:');
for i:=1  to n do
    begin
    s1:='';
    sq:=sqr(i);
    str(sq,s);
    k:=length(s);
    s1:=s[k];
    val(s1,c1,code); //code-ГЇГ°Г®ГўГҐГ°ГЄГ* ГўГ®Г§Г¬Г®Г¦Г*Г®Г±ГІГЁ ГЇГҐГ°ГҐГўГ®Г¤Г*. Г®Г*Г* ГІГіГІ Гў ГЇГ°ГЁГ*Г¶ГЁГЇГҐ Г*ГҐ Г*ГіГ¦Г*Г*, Г*Г® ГЇГ® Г±ГЁГ*ГІГ*ГЄГ±ГЁГ±Гі ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г» ГІГ°ГҐГЎГіГҐГІГ±Гї.
    s1:='';
    for k:=length(s) downto length(s)-1 do
    s1:=s[k]+s1;
    val(s1,c2,code);
    if (i=c1) or (i=c2) then
    write(i,' ');
    end;
end.

Добавлено через 10 часов 40 минут
Всё еще актуально

	23.11.2015, 00:03