Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.