Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a) 109 + 2 = 1000000000 + 2
= 100000002 chia hết cho 3 suy ra 1+0+0+0+0+0+0+0+0+2 = 3 chia hết cho 3.
Vậy 109 + 2 chia hết cho 3.
b) 1010 - 1 = 10000000000 - 1 = 9999999999 chia hết cho 9
Vậy 1010 - 1 chia hết cho 9.
Đề không cho kiểu dữ liệu gì nên mình vt longint
var A,B,C,D:longint;
begin
write('nhap A='); readln(A);
write('nhap B='); readln(B);
write('nhap C='); readln(C);
write('nhap D='); readln(D);
if A mod 2 = 0 then writeln(A,' la so chan') else writeln(A, ' la so le');
if B mod 3 = 0 then writeln(B,' chia het cho 3') else writeln(B,' ko chia het cho 3');
if C mod 5 = 0 then writeln(C,' chia het cho 5') else writeln(C,' ko chia het cho 5');
if D mod 9 = 0 then writeln(D,'chia het cho 9') else write(D,' ko chia het cho 9');
end.
uses crt;
var a:array[2..1000000]of longint;
n,i,k,t,dem:longint;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<n) and (n<=1000000);
for i:=2 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
dem:=0;
for i:=2 to n do
if a[i] mod k=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chia het cho ',k,' la: ',t);
writeln('So phan tu chia het cho ',k,' la: ',dem);
readln;
end.
Các công việc có tính lặp lại
Các công việc được tự động hoá
Tính toán
Hệ thống quản trị kinh doanh
Thống kê dân số
Giảng bài bằng máy tính
Bài 2:
uses crt;
var s,a:integer;
begin
clrscr;
s:=0;
a:=0;
repeat
a:=a+1;
s:=s+a;
until s>500;
writeln(s);
readln;
end.
Toán à?Hoài Phương Nguyễn Thị, bạn vô Toán mà hỏi sẽ có nhiều người trả lời đấy
a ) 972 + 200a = 972 + 2000 + a
= 2972 + a
Ta có : 2 + 9 + 7 + 2 + a = 20 + a
Để 972 + 200a chia hết cho 9 thì 20 + a chia hết cho 9
Mà a là chữ số => a = 7
Vậy với a bằng 7 ta được tổng 927 + 2007 chia hết cho 9
Câu b ) tương tự bạn tự làm nha