Найти произведение чисел...

Тема в разделе "Информатика", создана пользователем I love coca-cola, 11 фев 2010.

  1. I love coca-cola

    I love coca-cola New Member

    Найти произведение чисел кратных 5 и неоканчивающихся 0 на отрезке от а до б.Паскаль
     
    I love coca-cola, 11 фев 2010
    #1
  2. FFRiman

    FFRiman New Member

    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.
     
    FFRiman, 11 фев 2010
    #2

Поделиться этой страницей

Наша группа