Program chiahet;
Uses crt;
Var n: integer;
Begin
Clrscr;
Write('Nhap n: '); Readln (n);
If n mod 5 = 0 then writeln('n chia het cho 5');
If n mod 7 = 0 then writeln('n chia het cho 7');
If (n mod 5 = 0) and (n mod 7 = 0) then writeln('n chia het cho ca 5 va 7')
else (n mod 5 <> 0) and (n mod 7 <> 0) then writeln('n khong chia het cho ca 5 va 7');
Readln;
End.
Program chia_het;
uses crt;
var n: integer;
clrscr;
Write('nhap so n:'); readln(n);
if n mod 5=0 then write('so nay chia het cho 5')
else writeln('so nay khong chia het cho 5');
if n mod 7=0 then write('so nay chia het cho 7')
else writeln('so nay khong chia het cho 7');
readln
vẽ cho mình nhá tô màu bức dưới đây
..........làm cho mk bài dưới mk cảm ơn trước
Cho tam giác ABC, đường trung tuyến BD và CE cắt nhau tại G. Gọi I,K lần lựt là trung điểm của GB và GC. C/m DE // IK. giúp mình với
Xét sự biến thiên của hàm số y=1/2x-1
Vẽ hộ bức này Tranh đơn giản nên phải đẹp nha
Cho S.ABCD đáy hbh, AB=2a; BC=a căn 2; BD=a căn 6; hình chiếu S lên (ABCD) là trọng tâm G của BCD, SG=2a => khoảng cách G=> (SBD) ??
giải giúp em với ạ, em đang cần gấp, pleaseeeee
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
