Предмет: Информатика,
автор: mila1028
Напишите программу в паскале, которая вводит два целых числа и находит их произведение, не используя операцию умножения.Учтите, что числа могут быть отрицательными.
Ответы
Автор ответа:
0
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.
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;
writeln(p);
end.
Интересные вопросы
Предмет: Английский язык,
автор: marina16062008
Предмет: Русский язык,
автор: vikad2511200
Предмет: Математика,
автор: omusheg
Предмет: Алгебра,
автор: Hazxsw