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.
uses crt;
var n:integer;
begin
clrscr;
readln(n);
writeln(n div 3600,' ',n div 60,' ',n mod 60);
readln;
end.
* 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
uses crt;
var a:array[1..100]of integer;
i,n,max,dem1,dem2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln('So so chan la: ',dem1);
writeln('So so le la: ',dem2);
readln;
end.
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: ');
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do write(a[i],' '); writeln;
d:=0;
for i:=1 to n do if a[i]>0 then d:=d+1;
write('Co ',d,' so duong');
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long a[20],n,i,dem;
int main()
{
for (i=1; i<=20; i++) cin>>a[i];
dem=0;
for (i=1; i<=20; i++)
if (a[i]%2!=0) dem++;
cout<<dem;
return 0;
}
program Tim_So_Le_Chia_Het_Cho_3;
uses crt;
var
n, i, count: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
writeln('Cac so le chia het cho 3 nho hon ', n, ' la: ');
count := 0;
for i := 1 to n do
begin
if (i mod 2 = 1) and (i mod 3 = 0) then
begin
writeln(i);
count := count + 1;
end;
end;
writeln('Co tat ca ', count, ' so le chia het cho 3');
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i]>0 then inc(dem1);
if a[i]<0 then inc(dem2);
end;
writeln('Co ',dem1,' so duong');
writeln('Co ',dem2,' so am');
readln;
end.
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.
#include <bits/stdc++.h>
using namespace std;
long long x;
int main()
{
cin>>x;
int a=x/3600, b=x/60;
cout<<a<<"h<"<<(x-a*3600)/60<<"p"<<(x-a*3600-b*60)<<"s";
return 0;
}
thanh kiu, nhưng int main() lại ở dưới long long hử???