Var x,y,p,i:integer; begin readln(x,y); for i:=1 to abs(y) do p:=p+x; if y<0 then p:=-p;...

Question

Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;<br> writeln(p);
end.
Что Такое ABC?

Answer 1

Не АBC, а ABS - функция, которая возвращает модуль числа. Если пользователь ввел у отрицательный, то в данном примере в описании цикла будет использоваться положительное значение переменной у