• Вводятся два целых числа A и B. Вычислить произведение всех целых чисел от A до B, кратных 5.

Ответы 1

  • program raf105;

    var a,b,pro,i:integer;

    begin

    write('A = ');

    readln(a);

    write('B = ');

    readln(b);

    pro:=1;

    for i:=a to b do

     if (i mod 5)=0 then

       pro*= i;

    writeln('Вывод: ',pro);

    end.

    Язык PascalABC
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years