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.
Uses CRT;
Var n: word;
Begin
Clrscr;
write('Nhap n: '); readln(n);
if (n mod 2 = 0) and (n mod 3 = 0) then write('So do chia het cho 2 va 3')
else if (n mod 2 <>0) and (n mod 3 <> 0) then write('So do khong chia het cho 2 va 3')
else if (n mod 2 = 0) and (n mod 3 <> 0) then write('So do chia het cho 2 nhung khong chia het cho 3')
else write('So do chia het cho 3 nhung khong chia het cho 2');
readln
end.
var a,b,c:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
write('c = ');readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
write('ba so do co the la do dai ba canh cua tam giac')
else write('ba so do khong the la do dai ba canh cua tam giac');
readln
end.
Program bai1;
uses crt;
var n : integer;
begin
clrscr;
repeat
write('nhap so nguyen ='); readln(n);
until n > 0;
if n mod 3 = 0 then
write('- so ',n,' chia het cho 3 ') else
write('- so ',n,' khong chia het cho 3 ');
writeln;
if n mod 2 = 0 then
write('- so ',n,' la so chan ') else
write('- so ',n,' la so le ');
readln;
end.
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n>0 then writeln(n,' la so duong')
else writeln('ko la so duong');
if (n mod 2=1) and (n mod 3=0) then writeln('n la so le chia het cho 3')
else writeln('n ko la so le chia het cho 3');
readln;
end.