Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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;
writeln(p);
end.
Что Такое ABC?

Ответ оставил Гость

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