uses crt;
var n,dv,ch:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (10<=n) and (n<=99);
dv:=n mod 10;
ch:=n div 10;
writeln('Tong cac chu so la: ',dv+ch);
readln;
end.
câu 1 viết chương trình in ra màn hình diện tích và chu vi hình vuông s : =a*a; p:=4*a;
câu 2 viết chương trình tính tổng , tích và hiệu của hai số được nhập từ bàn phím
câu 3 viết chương trình kiểm tra 3 số a,b,c có là ba cạnh của một tam giác hay không với a,b,c là 3 số nhập từ bàn phím
1. Viết chương trình đơn giản: In ra màn hình 2 dòng chữ:
TRUONG THCS ....
CHAO CAC BAN HOC SINH LOP 8
Mik cần gấp lắm ạ huhu
Cảm ơn mn nhiều
Viết chương trình in ra màn hình 3 dòng chữ:
- Chào các bạn
- Mình tên là ...
- Mình học lớp ...
viết chương trình nhập vào chuỗi S a)Đếm xem trong chuỗi có bao nhiêu kí tự b)xuất ra chuỗi đảo c)xóa kí tự trắng dư thừa trong xâu d) đếm các chữ số trong xâu
mong các bạn giúp mình với.
Cho 2 số nguyên a,b viết chương trình lấy a chia b lấy phần nguyên rồi gán cho c. Kết quả in ra màn hình.
Đây là chương trình in ra màn hình 2 dòng chữ CHAO CAC BAN, thời gian in mỗi dòng cách nhau 3 giây:
Program vd1;
uses crt;
begin
clrscr; {Lau sạch màn hình}
writeln('CHAO CAC BAN'); {lệnh xuất CHAO CAC BẠN RA MÀN HÌNH}
Delay(3000); {lệnh tạm dừng thực hiện lệnh sau nó 3 giây}
writeln('CHAO CAC BAN');
readln;
end.
Dựa vào chương trình trên, viết chương trình in ra màn hình dòng chữ KHẨN CẤP nhấp nháy 3 lần!
Cần gấp lắm mn ơi huhu
viết chương trình nhập 2 số a,b từ bàn phím. Sau đó in ra màn hình tổng c của hai số đó ( Giả sử c=a+b)
Viết chương trình in ra màn hình 2 dòng gồm: Họ tên và lớp của em.
tên mình Nguyễn Mai Phương
Lớp 8a4
các bn lm dùm mik vs mik cần gấp
trên pascal ạ
Viết chương trình nhập 2 số x,y từ bàn phím.Kiểm tra số x có chia hết cho số y không?
