Câu 1: Viết chương trình nhập vào 1 số có bốn chữ số. Sau đó tính và đưa ra màn hình, tổng các chữ số của số nguyên đó. Câu 2:Thời gian thực hiện 1 công việc nào đó là X giây. Hãy viết chương trình tính thời gian thực hiện công việc đó là mấy giờ, mấy phút, mấy giây. Em cần gấp ạ em cảm ơn nhìuuuuuu ạ

Câu 1 :

uses crt;

var n, a, b, c, d : longint;

begin

clrscr;

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

if (n >= 1000) and (n <= 9999) then

begin

a := n div 1000;

b := (n - a * 1000) div 100;

c := (n - a * 1000 - b * 100) div 10;

d := n - a * 1000 - b * 100 - c * 10;

write('Tong cac chu so = ', a + b + c + d);

end;

readln

end.

Câu 2 :

uses crt;

var x, h, p, s : longint;

begin

clrscr;

write('Nhap so giay : '); readln(x);

h := x div 3600;

p := (x - h * 3600) div 60;

s := x - h * 3600 - p * 60;

write(x ,' giay = ', h ,' gio ', p ,' phut ', s ,' giay');

readln

end.

Câu 1:
var s:string;
    t,i:longint;
begin
readln(s);
t:=0;
for i := 1 to length(s) do
t :=t + (ord(s[i])-48);
writeln(t);
readln;
end.


Câu 2:
var x,g,p:real;
begin
readln(x);
p:=x/60;
g:=x/3600;
writeln('Thoi gian thuc hien cong viec bang gio = ',g:0:2);
writeln('Thoi gian thuc hien cong viec bang phut = ',p:0:2);
writeln('Thoi gian thuc hien cong viec bang giay = ',x:0:2);
readln;
end.