Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. учтите, что числа могут быть отрицательными. ( паскаль)
Var a, b, i, p: integer; begin writeln('Введите два целых числа'); readln(a, b); p := 0; for i := 1 to abs(b) do p := p + abs(a); writeln('Произведение = ', p); end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var n:=ReadInteger('n='); var x:=ArrRandom(n,-5,20); x.Println; if x.Min<0 then x:=x.Select(e->abs(e)).ToArray; x.Println end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 const nn=50; var x:array[1..nn] of integer; i,m,n:integer; begin Write('n= '); Read(n); Randomize; x[1]:=Random(26)-5; m:=x[1]; Write(x[1],' '); for i:=2 to n do begin x[i]:=Random(26)-5; if x[i]<m then m:=x[i]; Write(x[i],' ') end; Writeln; if m<0 then begin for i:=1 to n do begin x[i]:=abs(x[i]); Write(x[i],' ') end; Writeln end end.
begin
writeln('Введите два целых числа');
readln(a, b);
p := 0;
for i := 1 to abs(b) do
p := p + abs(a);
writeln('Произведение = ', p);
end.