[Tin 11] Viết chương trình Pascal

[snowangel1103]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1/ viết chương trình nhập vào 1 số nguyên dương có 4 chữ số. làm các công việc sau. xuất ra màn hình chuỗi của việc đọc giờ số này. VD:3670:1 giờ 1 phút 10 giây

2/ viết chương trình nhập giờ : phút : giây (hh:mm:ss) từ bàn phím. Cộng thêm một số giây nhập vào và in ra kết quả dưới dạng hh:mm:ss

3/ viết chương trình nhập vào 1 số nguyên dương có 3 chữ số.làm các công việc sau:
a) xuất ra màn hình chuỗi của việc đọc số này. VD: 358: 3 trăm 5 chục 8 đơn vị
b) tính và in ra màn hình tổng các chữ số đó. VD: 358=3+5+8=16

(mọi người giúp giùm em vì em mới học nên hướng dẫn cụ thể, chi tiết giúp em. thanks)

 

[atlmnt]

1/ viết chương trình nhập vào 1 số nguyên dương có 4 chữ số. làm các công việc sau. xuất ra màn hình chuỗi của việc đọc giờ số này. VD:3670:1 giờ 1 phút 10 giây

2/ viết chương trình nhập giờ : phút : giây (hh:mm:ss) từ bàn phím. Cộng thêm một số giây nhập vào và in ra kết quả dưới dạng hh:mm:ss

3/ viết chương trình nhập vào 1 số nguyên dương có 3 chữ số.làm các công việc sau:
a) xuất ra màn hình chuỗi của việc đọc số này. VD: 358: 3 trăm 5 chục 8 đơn vị
b) tính và in ra màn hình tổng các chữ số đó. VD: 358=3+5+8=16

(mọi người giúp giùm em vì em mới học nên hướng dẫn cụ thể, chi tiết giúp em. thanks)

Bài 1:
var
a:word;
h,m:byte;
begin
write('Nhap so giay:'); readln(a);
h:=a div 3600;
a:=a mod 3600;
m:=a div 60;
a:=a mod 60;
write(h,' gio ',m,' phut ',a,' giay');
readln;
end.

Bài 2:
var
a:word;
h,m,s:byte;
begin
write('Gio:');readln(h);
write('Phut:');readln(m);
write('Giay:'); readln(a);
write('So giay cong vao:');readln(s);
a:=3600*h+60*m+a+s;
h:=a div 3600;
a:=a mod 3600;
m:=a div 60;
a:=a mod 60;
write(h,' gio ',m,' phut ',a,' giay');
readln;
end.

Bài 3:
var
a:word;
t,c:byte;
begin

write('Nhap vao so nguyen duong co 3 chu so:');readln(a);

t:=a div 100;
a:=a mod 100;
c:=a div 10;
a:=a mod 10;
writeln(t,' tram ',c,' chuc ',a,' don vi');
writeln(t,c,a,'=',t,'+',c,'+',a,'=',t+c+a);
readln;
end.