• вычислить произведение чисел от 3 до 30 используя циклы for while

Ответы 1

  • Var A:integer;P:real;BeginP:=1;For A:= 3 to 30 do    P:=P*A;WriteLn('P = ',p);P:=1;While A>=3 do   Begin   P:=P*A;   A:=A-1   End;WriteLn('P = ',P);End.
    • Автор:

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

Войти через Google

или

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

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

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