Question

Mọi người giúp e câu3,4,6 được ko ạ e đang cần gấp huhuuu Câu3: Viết chương trình xác định số ngày của một năm n Câu4: Viết chương trình nhập vào độ dài của ba đoạn thẳng cho biết có thể tạo thành một tam giác từ độ dài của ba đoạn thẳng vừa nhập hay không Câu6: tìm và in ra mọi ước của số nguyên dương n nhập từ bàn phím

Answer 1

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.