Question

Найти произведение чисел кратных 5 и неоканчивающихся 0 на отрезке от а до б. Паскаль

Answer 1

var
  a, b:integer;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  writeln('Числа кратные 5 и не оканчивающиеся на 0 на отрезке от ', a, ' до ', b);
  for a := a to b do
    if abs(a mod 10) = 5  then
      write(a, ' ');
  writeln;
end.