Delphi работа с числами

[Яська]

Условие:Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 - на 4.

мой вариант:
для того,чтобы умноженное на 2 число заканчивалось на 8,нужно,чтобы последняя цифра была 4 или 9; умноженное на 3 заканчивалось на 4,последняя цифра должна быть 8.

код:
procedure TForm1.Button3Click(Sender: TObject);
var x:integer;
begin
x:=10;
While x<=99 do
begin
if (x mod 10=4) or (x mod 10=8) or (x mod 10=9) then
memo1.Lines.Add('x=');
x:=x+1;

end;
end;

end.

не хочет работать

[baster128]

А почему оно должно работать если
memo1.Lines.Add('x=');
наверное надо
memo1.Lines.Add('x='+IntToStr(x));: d
А потом, это только все числа подряд, а не при умножении.

[Gambler]

Да вы же практически все сделали. Зачем усложнять задачу. Надо умножить на 2, так умножайте и связка будет через and. условие станет if ((x*2) mod 10 = 8 ) and ((x*3) mod 10 = 4) then