• ПАСКАЛЬ ИНФА 9 класс хелп
    Запрлсить 10 целый чисел , вычислить произведение чисел , которые попадают в отрезок от 10 до 20

Ответы 1

  • Var   A,i:integer;   P:real;BeginP:=1;WriteLn('Введите 10 целых чисел');For i:= 1 to 10 do    Begin    Read(A);    if (10<=A)and(A<=20) then P:=P*A;    End;WriteLn('P = ',P);End.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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