Паскаль или Делифи консоль

[LLIypLLIyH]

Дано натуральное число n. Среди чисел 1, ..., п найти такие, запись которых совпадает с последними цифрами записи их квадратов (например, б2 = 36, 252= 625).

Как это делать, хотябы обьясните (

[ManU]

Что-то типа этого:

program ew;
const n=30;
var a,b,c,d:integer;
begin
for a:=1 to n do
begin
c:=a mod 10;
b:=c*c;
if (b mod 10= c mod 10) then writeln(a);
end;
readln;
end;

[Sunrise]

numSqr := num * num;
ok := true;
while num <> 0 do begin
	if ((num mod 10) <> (numSqr mod 10)) then begin
		ok := false;
		break;
	end;
	num := num div 10;
	numSqr := numSqr div 10;
end;

Если после выполения этого куска ok равно true, то число нам подходит.

[-=<[Evklidd]>=-]

Сообщение от ManU

Что-то типа этого:

program ew;
const n=30;
var a,b,c,d:integer;
begin
for a:=1 to n do
begin
c:=a mod 10;
b:=c*c;
if (b mod 10= c mod 10) then writeln(a);
end;
readln;
end;

почему n const? и зачем два раза брать mod, вот здесь:
c:=a mod 10;
b mod 10= c mod 10, должно быть просто b mod 10 = a mod 10
Вот исправленный код, тестировал:

program pro17;
var
 n, i: integer;
begin
 writeln('Vvedite n: ');
 readln(n);
 for i:= 1 to n do
  if (Sqr(i) mod 10 = i mod 10) then
   writeln(i,' and ', Sqr(i));
 readln;
end.

[Sunrise]

Насколько я понял, нужно, чтобы число полностью совпало с концом его квадрата, а вы смотрите только на последние цифры.

[-=<[Evklidd]>=-]

Да, просмотрел, показалось, что должны совпасть только с последнии цифры

[LLIypLLIyH]

А как делатЬ?

[-=<[Evklidd]>=-]

ха, любую прочитать в принципе можно, важно как читать! Попробуй М. Фленова "Библия Delphi", хорошая книга

[Sunrise]

Сообщение от LLIypLLIyH

А как делатЬ?

Так я ж написал вроде бы :-)

[LLIypLLIyH]

Сообщение от Sunrise

Так я ж написал вроде бы :-)

А чё в ней допаисть нужно?)