Вводятся числа a и b. Найти количество чисел в диапазоне [a;b], у которых последняя цифра равна 7.

Бесконечно много таких чисел. (Нигде не сказано, что речь идёт только о целых числах).  Да же если а=1 и b=2, то в [a;b] будут числа 1,7; 1,07; 1,17; 1,27; 1,37...; 1,12345698789564545687 и т.д.

var a,b,i,atvet:integer;

//vvodim 4isla
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);

//diapazon
diapazon:array[a..b] of integer;

//pods4et
i:=0;
atvet:=0;
repeat
if diapazon<>7 then
inc(atvet);
inc(i);
until (diapazon>7);

//vivod atveta
label1.caption:=inttostr(atvet);

//vozmozno asibajusj pustj ktoto umnij papravit :D

int((b-a)/10)+int((a-int(a/10)*10)/7)
^^ неправильный ответ :)

Этот вопрос станет самым популярным, и ответов на него будет навалом...

Ответ: Я знаю только про поезд из точки А в точку Б, на скорости, и т.д.

А что тебе непонятно-то?

Ну можно банальным перебором дело решить, сравнивать последнюю цифру каждого числа с 7-кой и увеличивать счётчик. Но это медленно. Представь - он будет сравнивать каждое число, хотя реально надо только каждое 7-ое. Тем более мы точно знаем, что в каждой десятке есть 7-ка. Остаётся подсчитать количество десяток, проанализировать последнюю цифру, чтоб знать есть ли в ней семёрка, считать ли её..
Так получим кол-во семёрок для А и для В. Потом отнимаем и получаем сколько их в промежутке между А и B. Только надо смотреть - ведь число А входит в число В. И при разнице мы получим количество семёрок в В без количества 7-к в А. Поэтому, если хочешь чтоб подсчитивалось и число А с 7-кой на конце, то надо при анализе последней цифры А учитывать только с 8-ки.
А если не надо включать в диапазон А и В, тогда при анализе последней цифры А ставь 7, а анализ последней цифры В с 8-ки.


procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,y,x1,y1:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
y:= a div 10; //количество "полных" десяток
x:= a mod 10; //определение последней цифры в числе
If x>=8 then inc(y); //если в последняя цифра в числе 8 или больше, значит +1 семёрка
//аналогично со вторым числом
y1:= b div 10;
x1:= b mod 10;
If x1>=7 then inc(y1);
label1.caption:='Ответ: '+IntToStr(y1-y);
end;