как решить лабораторную?

[DERZArap4KA]

Дано натур. Число N среди чисел от 1 до. N. Янайти все такие запись которых совпадает с последними цифрами записи их квадрата(6 в квадрате =36; 25 в квадрате=625) и т.д.

[Bugrimov]

Какой язык программирования и есть ли наработки?

[Sciv]

В цикле от одного до N получать квадраты чисел и сравнивать числа с последними цифрами этих квадратов. Чтоб получить последние цифры квадратов - используются операции целочисленного деления и остатка от деления. Думаю, тут достаточно только остатка.

А язык программирования какой?

[DERZArap4KA]

Язык программирования Паскаль. Наработок пока нет, пытаюсь программу составить.

[Hemul]

for i:=1 to N do
begin 
    if (i mod 10) = (i*i mod 10) then 
        writeln(i);
end;

[Sciv]

Hemul, обратите внимание, что в примере еще и двухзначные числа используются, т.е. 25*25=625. Ваш код работает только для первого десятка (0 до 9)

[Sciv]

var i,j: word;
begin
  for i:=1 to N do begin
    case i of
      0..9: j:=i*i mod 10;
      10..99: j:=i*i mod 100;
      100..999: j:=i*i mod 1000;
      1000...9999: j:=i*i mod 10000;
    else j:=i*i mod 100000;
    if i=j then writeln(i);
  end;
end.

Вот как-то так извратно...

[Abstraction]

Вот как-то так извратно...

Крибле, крабле, бумс (C++):

	for(int k=1, lim=10, div5=5, div2=2; (10*N)/lim>0; ++k, lim*=10, div5*=5, div2*=2){
		for(int c = div5; c<lim; c+=div5){
			if(c < lim/10) continue;
			if(c%2==0) continue;
			if(c>N) break;
			if(((c-1)&(div2-1)) == 0) std::cout << c << std::endl;
			if(c==N) break;
			if(((c+1)&(div2-1)) == 0) std::cout << c+1 << std::endl;  
		}
	}

[eoln]

Ахалай махалай

  for i:=1 to N do begin
    str(i,s);
    if i=sqr(i) mod round(exp(length(s)*ln(10))) then writeln(i, '  ', sqr(i));
  end;

[DERZArap4KA]

В общем я тоже поколдовала над лабой, составила блок-схему, стало намного понятнее.