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

Ответы:

Афина Якименко

14-03-2016 20:55

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Юрий Шевчук

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Распечатать произведения чисел А и В изменяющихся от 17 и -25 с шагом -3 и 5 соответственнно до тех пор, пока это произведение - отрицательно число» от пользователя Юрий Шевчук в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!