Написать программку которая получает два целых числа и находит их произведение

Написать программку которая получает два целых числа и обретает их творение не используя операцию умножения учтите что числа могут быть отрицательными (pascal)

Задать свой вопрос
1 ответ
Program n1;
var a,b,p,i: integer;
z: byte;
begin
readln(a,b);
if ((agt;0) and (blt;0)) or ((alt;0) and (bgt;0))then z:=1 else z:=2;
a:=абс(a);
b:=abs(b);
p:=0;
for i:=1 to a do p:=p+b;
if z=1 then write(-p) else write(p);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт