• Составить программу нахождения произведения 20 введенных пользователем чисел.

Ответы 6

  • Выражено через массивы
  • var a,b,i:integer;beginb:=1;for i:=1 to 6 do beginread(a);b:=b*a;end;write(b);end.
    • Автор:

      mccarthy
    • 5 лет назад
    • 0
  • Упс
    • Автор:

      emmygske
    • 5 лет назад
    • 0
  • var a,b,i:integer;beginb:=1;for i:=1 to 20 do beginread(a);b:=b*a;end;write(b);end.
    • Автор:

      marcox2ya
    • 5 лет назад
    • 0
  • Если не изучали массивы
  • var i,m:integer;mass:array[1..20] of integer;beginfor i:=1 to 20 doread(mass[i]);m:=mass[1];for i:=2 to 20 dom:=m*mass[i];writeln(m);end.
    • Автор:

      joel
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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