• Распечатать произведения чисел А и В изменяющихся от 17 и -25 с шагом -3 и 5 соответственнно до тех пор, пока это произведение - отрицательно число

Ответы 1

  • Var A,B :integer;beginA:=17;B:=-25;while (a*B)<0 do begin    writeln (A*B);   A:=A-3;   B:=B+5;  end;end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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