Составить программу «умножения столбиком» 2 чисел - Pascal ABC

Формулировка задачи:

Даны два натуральных числа, каждое из которых не превосходит 30000. Составить программу их «умножения столбиком» .

Код к задаче: «Составить программу «умножения столбиком» 2 чисел - Pascal ABC»

textual
function padl(n:integer; size:integer):string;
var r:string;
begin
  r:=IntToStr(n);
  while length(r)<size do r:=' '+r;
  padl:=r;
end;
 
 
var a,b,t,i : integer;
begin
  ReadLn(a,b);
  WriteLn;
  writeLn(padl(a,10));
  writeLn(padl(b,10));
  writeLn('----------');
  t:=b;
  i:=0;
  while t>0 do begin
    if (t mod 10)<>0 then
       writeLn(padl(a*(t mod 10),10-i));
    t:=t div 10;
    inc(i);
  end;
  writeLn('----------');
  writeLn(padl(a*b,10))
 
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.067 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы