pascal
Объяснение:
var
a, b, col: integer;
begin
repeat
Write('Введите число a: '); ReadLn(a);
Write('Введите число b: '); ReadLn(b);
until a<=b;
repeat
if ((sqr(a)*a) mod 10 = 4) or ((sqr(a)*a) mod 10 = 9) then inc(col);
inc(a);
until a>b;
WriteLn('Количество чисел в диапазоне от ', a, ' до ', b,
' включительно, куб которых оканчивается на 4 или 9 равно ', col);
end.