K
Khách

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.

31 tháng 10 2022

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n;

cin>>n;

if ((n%4!=0 && n%100==0) or (n%400==0)) cout<<366;

else cout<<365;

}

14 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

int n,kt;

int main()

{

cin>>n;

kt=0;

if (n%400==0) kt=1;

if ((n%4==0) and (n%100!=0)) kt=1;

if (kt==0) cout<<365;

else cout<<366;

return 0;

}

10 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%400==0) cout<<"YES";

else if ((n%100!=0) and (n%4==0)) cout<<"YES";

else cout<<"NO";

return 0;

}

16 tháng 12 2022

2:

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<fixed<<setpricision(2)<<1/(a+b)<<endl;

return 0;

}

17 tháng 12 2022

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.

22 tháng 12 2022

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

if i mod 5<>0 then t:=t+i;

writeln(t);

readln;

end.

15 tháng 4 2023

def sum_and_diff(m, n):
    sum = m + n
    diff = m - n
    return sum, diff

# sử dụng chương trình con
a = 5.6
b = 2.3
result = sum_and_diff(a, b)
print("Tổng và hiệu của", a, "và", b, "là", result)

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']=');readln(a[i]);

end;

dem:=0;

for i:=1 to n do

  if (a[i] mod 3=0) and (a[i] mod 5=0) then inc(dem);

writeln('So phan tu chia het cho 3 va 5 trong day la: ',dem);

readln;

end.

30 tháng 12 2020

uses crt;

var a,t,dem:integer;

begin

clrscr;

t:=0;

dem:=0;

repeat

write('Nhap a='); readln(a);

if (a mod 2=0) and (a mod 3=0) then

  begin

    t:=t+a;

dem:=dem+1;

end;

until a=0;

writeln('Trung binh cong cua cac so chia het cho 3 va 2 la: ',t/dem:4:2);

readln;

end.