Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Duong hanh trang

Gấu nhà ta rất tức tối trước những phép nhân dài dằng dặc ở trong lớp, cậu ta liền xây dựng một phép nhân của mình như sau: A*B thay vì nhân bình thường sẽ là tổng các thành phần của A nhân với các thành phần của B. Ví dụ kết quả của phép nhân của Gấu 123*45 là 1*4 + 1*5 + 2*4 + 2*5 + 3*4 + 3*5 = 54.

Yêu cầu: Cho hai số nguyên A và B cách nhau ít nhất một khoảng trắng, xác định giá trị A*B theo kiểu nhân của Gấu.

Nguyễn Trung Hiếu
29 tháng 4 2019 lúc 9:25

uses crt;
var a,b,c,d,e,f,l,i,dem,n,v,x,y,p,d1:longint;
m,k:array[1..10000000] of longint;
s:real; st:ansistring;
begin
clrscr;
write('Nhap so nguyen A: ');readln(a);
write('Nhap so nguyen B: ');readln(b);
d1:=0;d:=0;
while b<>0 do
begin
v:=b mod 10;
b:=b div 10;
d:=d+v;
end;
while a<>0 do
begin
p:=a mod 10;
a:=a div 10;
d1:=d1+p;
end;
write(d*d1);
readln;
end.

Duong hanh trang
28 tháng 4 2019 lúc 22:21

Help me, please !


Các câu hỏi tương tự
Idol Thành công
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Phan Hùng Anh
Xem chi tiết
Thị Na Trần
Xem chi tiết
Trần Văn Dũng
Xem chi tiết
Ánh Dương
Xem chi tiết
ℍ𝕠̣𝕔 𝔻𝕠̂́𝕥
Xem chi tiết
Thanh Tùng Nguyễn
Xem chi tiết
Linh Bùi
Xem chi tiết