Những câu hỏi liên quan
Đinh Hoàng Nhất Quyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 8 2023 lúc 20:49

#include <bits/stdc++.h>

using namespace std;

int p;

int main()

{

cin>>p;

cout<<p/60<<":"<<p%60;

}

Bình luận (0)
Đinh Hoàng Nhất Quyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 8 2023 lúc 23:57

#include <bits/stdc++.h>

using namespace std;

 int p; 

int main() 

cin>>p; 

int a=p/3600; 

p=p-a*3600; 

int b=p/60; 

int c=p%60; 

cout<<a<<":"<<b<<":"<<c; 

}

Bình luận (0)
Nguyễn Hoàng Duy
7 tháng 8 2023 lúc 10:10

#include <iostream>

using namespace std;

int main()

{

int t;

cin >> t;

int h = t / 3600;

int m = (t % 3600) / 60;

int s = (t % 3600) % 60;

cout << h << ":" << m << ":" << s << endl;

return 0;

}

Bình luận (0)
Trang Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2022 lúc 14:37

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

if (a>b) cout<<"a lon hon b";

else if (a<b) cout<<"a nho hon b";

else cout<<"a=b";

return 0;

}

Bình luận (0)
Dương Chí Tôn
Xem chi tiết
Đinh Hoàng Nhất Quyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 8 2023 lúc 20:02

uses crt;

var p,a,b:integer;

begin

clrscr;

readln(p)

a:=p div 60;

b:=p mod 60;

write(a,':',b);

readln;

end.

Bình luận (0)
Long ca ca
Xem chi tiết
Yến Nhi Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 1 2023 lúc 14:54

Bài 1:

Input: Số n

Output: Kiểm tra xem n có chia hết cho 5 ko

Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: Nếu n chia hết cho 5 thì xuất ra có

không thì không

Bước 3: Kết thúc

Viết ct:

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n mod 5=0 then write('yes')

else write('no');

readln;

end.

Bình luận (0)
Lucky Kate
Xem chi tiết
Bao112233
17 tháng 12 2022 lúc 21:22

b) 

#include <iostream>
using namespace std;
int a;
int main(){
    cin>>a;
    if (a%2==0) cout<<a<<" la so chan";
    else cout<<a<< "la so le";
    return 0;
}

Bình luận (0)
hello sun
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 1 2021 lúc 13:19

uses crt;

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

i,n,dem,dem1:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

inc(dem);

b[dem]:=a[i];

end

else begin

ic(dem1);

c[dem1]:=a[i];

end;

end;

writeln('Co ',dem,' so chan');

writeln('Co ',dem1,' so le');

if dem>0 then 

begin

write('Cac so chan la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

if dem1>0 then 

  begin

write('Cac so le la: ');

for i:=1 to dem1 do 

  write(c[i]:4);

end;

readln;

end.

Bình luận (0)
Tuân Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2021 lúc 10:23

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do  

  s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)