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?
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?
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Abs - абсолют (модуль значения)