Делфи Консоль ПОмогите пожалуйста

[LLIypLLIyH]

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

var
    n,numsqr:integer;
    num:integer;
    d:real;
    ok:boolean;
begin

writeln ('vvedite 4uclo'); readln(d);
    for num:=1 to 10 do begin
     numSqr:=num*num;
      ok:=true;
       while num <> 0 do begin
          if ((num mod 10) <> (numSqr mod 10)) then begin
             ok := false;
            break;
           end;
        d:=(num/10);
        numsqr:=numsqr div 10;
       writeln ('d', 2:3);
      end;
     if ok then writeln(d);
    end; readln;
    end.

вот что у меня получилось

=================================== ==============

2) В небоскрёбе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры М. На какой этаж должен доставить лифт пассажира?

[master_root]

2.Функция в аргументе принимает число этажей в небоскрёбе - N и номер квартиры - M соответственно:

function func(N,M: integer): integer;
var
	res: integer;
begin
{получение этажа исходя из номера квартиры}
  res:=M div 3;
	if res <> (res-(M mod 3)) then
		res:=(M div 3)+1;
  if res>N then//если получившийся этаж больше введённого пользователем, то выдаём результат,который обнаружит нам ошибку 
  begin
    func:=-1;
    exit;
  end;
{если получившийся этаж чётный и непоследний, то высаживаем на более высоком нечётном этаже
 если получившийся этаж чётный и последний, то высаживаем на более низком нечётном этаже
 если получившийся этаж нечётный, то ничего не меняем и высаживаем его там где нужно}
	if (res mod 2) = 0 then
		if res<>N then
			res:=res+1
		else
			res:=res-1;
	func:=res;
end;

[LLIypLLIyH]

Спасибо!)

А первую не знаешь как сделать?

[Olympian]

а первую проще наверное так

function F1( Num : Integer) : Boolean;
var
  m : integer;
begin
  m := Num mod 10;
  case m of
     5, 6, 0, 1:F1 := True
     else
       F1 := False;
  end;
end;

За синтаксис не отвечаю - писал прямо тут..
А в самой программе делаешь цикл, где пробегаешь по всем числам от 1 до n
и если F1(i) = True тогда это нужное тебе число

[LLIypLLIyH]

Не понятно что то, не пашет она

[Olympian]

Ой, извиняюсь - я неверно прочел условие.

В твоем коде - почему цикл самый первый выглядит так
for num := 1 to 10 do

Ведь мы прочли число - d. и цикл должен быть не до 10, а до d..Ну это так - 1й взгляд.
Так же - зачем тебе 1й writeln(d)
ты каждый раз выводишь 1но и тоже число.
Выводить надо num,а не d

[LLIypLLIyH]

Не рабетает, я вообще не понимаю(

[B_N]

var
    i   : longint;
    d   : longint;
    tmp : longint;
    n   : word;

begin
    write('n = '); readln (n);
    writeln;

    for i := 1 to n do begin
        d := 1;
        tmp := i;
        while tmp > 0 do begin
            d := d * 10;
            tmp := tmp div 10;
        end;

        tmp := i * i;
        if i = tmp mod d then writeln ( i, ' --> ', tmp);
    end;

    readln;
end.

n = 10000

1 --> 1
5 --> 25
6 --> 36
25 --> 625
76 --> 5776
376 --> 141376
625 --> 390625
9376 --> 87909376

[LLIypLLIyH]

Спасибо огромное!