Распечатать произведения чисел А и В изменяющихся от 17 и -25 с шагом -3 и 5 соответственнно до тех пор, пока это произведение - отрицательно число
Распечатать произведения чисел А и В изменяющихся от 17 и -25 с шагом -3 и 5 соответственнно до тех пор, пока это произведение - отрицательно число
Гость
Ответ(ы) на вопрос:
ГостьVar A,B :integer;
begin
A:=17;
B:=-25;
while (a*B)<0 do begin
writeln (A*B);
A:=A-3;
B:=B+5;
end;
end.
Не нашли ответ?
Похожие вопросы