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.

13 tháng 12 2018

Program doi_gio_phut_giay;

Uses crt;

Var gio, phut,giay, x:longint;

Begin

Clrscr;

Writeln('doi sang gio phut giay');

Write('nhap vao so giay: ');readln(x);

gio:= x div 3600;

x:=x mod 3600;

phut:=x div 60;

x:=x mod 60;

Write('ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay');

Readln

End.

13 tháng 12 2018

Lập trình đơn giản

30 tháng 10 2021

uses crt;

var n:integer;

begin

clrscr;

readln(n);

writeln(n div 3600,' ',n div 60,' ',n mod 60);

readln;

end.

13 tháng 9 2023

* Cách tính

Tạo biến X để lưu số giây cần đổi

Hỏi người dùng nhập số giây X

Chuyển X thành giờ, phút, giây bằng cách:

Tính số giờ bằng cách chia X cho 3600 và lấy phần nguyên

Tính số phút bằng cách chia số dư của bước trên cho 60 và lấy phần nguyên

Tính số giây bằng cách lấy số dư của bước trên

Chương trình

loading...

#include <bits/stdc++.h>

using namespace std;

long long b[1000],i,n,j,t,dem;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>b[i];

dem=0;

for (i=1; i<=n; i++)

{

t=0;

for (j=1; j<=b[i]/2; j++)

if (b[i]%j==0) t+=j;

if (t==b[i]) dem++;

}

cout<<dem;

return 0;

}

19 tháng 2 2023

Program HOC24;

var i,n,d: integer;

begin

write('Nhap N: '); readln(n);

write('Cac uoc cua 'n,' la: ');

for i:=1 to n do if i mod n = 0 do then

begin write(i,' '); d:=d+1; end;

writeln;

write('Co ',d,' so la uoc cua ',n);

readln

end.

31 tháng 7 2023

Tham khảo!

Theo chương trình ở Hình 1, nếu gia đình em đi xem phim thì phải trả 60000x4 = 240000 VNĐ (với gia đình 4 người).

Nếu đi xem phim trong tuần thì phải trả 40000x4 = 160000 VNĐ

→ Chương trình ở Hình 1 không tính đúng.

6 tháng 10 2021

Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với

22 tháng 10 2021

sài lệnh writeln nhé bạn