Распечатать творения чисел А и В изменяющихся от 17 и -25

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

Задать свой вопрос
Пимашева-Гусева Инна
Паскаль?
Лариса Общева
да
1 ответ
Var A,B :integer;
begin
A:=17;
B:=-25;
while (a*B)lt;0 do begin 
  writeln (A*B); 
  A:=A-3; 
  B:=B+5;
  end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт