Những câu hỏi liên quan
Hoa Ngô Bùi Mai
Xem chi tiết
Công Lê
Xem chi tiết
Quoc Anhh
Xem chi tiết
Bao112233
17 tháng 12 2022 lúc 21:11

Cau 3:

var n:integer;
begin
    read(n);
    if n mod 4=0 then write('Nam ',n,' co 366 ngay')
    else write('Nam ',n,' co 365 ngay');
end.

Cau 4:

var a,b,c:integer;
begin
    read(a);
    read(b);
    read(c);
    if (a+b>c) and (a+c>b) and (b+c>a) then write('Co the tao thanh mot tam giac')
    else write('Khong the tao thanh mot tam giac');
    readln;
end.

Cau 6:

var n,i:integer;
begin
    read(n);
    for i:=1 to n do 
    if n mod i=0 then write(i,' ');
    readln;
end.

Công Lê
Xem chi tiết
Công Lê
Xem chi tiết
Nguyễn Văn Khoa
Xem chi tiết
Mai Khánh Huyền
Xem chi tiết
duka
Xem chi tiết
Nguyễn Công Bằng
Xem chi tiết
Hạnh Thu
Xem chi tiết