• Даны 10 любых чисел , найти произведение только тех , которые лежат в диапазоне от 20 до 40

Ответы 1

  • Program probzvedenbe;Vara, b, c: integer;Beginc := 1;for b:=0 to 9 do beginreadln (a);if (a >= 20) and (a <= 40) then c := c * a;end;writeln(\'Произведение введенных числе, находящихся в диапазоне от 20 до 40 равно \', c);readln;End.(Программа проверена в PascalABC)
    • Автор:

      lizeth
    • 3 года назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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