Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Văn Hà TámB

Câu 1 : Cho chiều cao hai bạn Nam và Linh . Em hãy viết chương trình in ra chiều cao của bạn có số đo cao hơn      

Câu 2 : Nhập N . Viết chương trình tính tích các chữ số tự nhiên từ 1 đến N

Câu 3 : Nhập N . In ra bảng cửu chương N

Phong Thần
14 tháng 2 2022 lúc 7:57

Câu 1: 

program chieu_cao;

uses crt;

var Nam, Linh: real;

begin

clrscr;

write ('Nhap chieu cao cua Nam:'); readln (Nam);

write ('Nhap chieu cao cua Linh:'); readln (Trang);

if Nam > Linh then writeln ('Ban Nam cao hon');

if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');

readln

end.

Phong Thần
14 tháng 2 2022 lúc 8:11

Câu 2: 

program Tich;

var N,i: interger;

      P: longint;

begin

write ('N='); readln (N);

P:=1;

for i:=1 to N do P:=P*i;

writeln (N,' ! = ',P);

readln

end.

Nguyễn Lê Phước Thịnh
14 tháng 2 2022 lúc 8:32

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

readln(n);

for i:=1 to 10 do 

  writeln(n,'*',i,'=',n*i);

readln;

end.


Các câu hỏi tương tự
Selena Flynn
Xem chi tiết
Nguyễn Minh Trường
Xem chi tiết
Nguyễn Võ Phương Uyên
Xem chi tiết
Hoàng Thị Mỹ Phan
Xem chi tiết
ngocanh
Xem chi tiết
T Đạt
Xem chi tiết
tho hit co
Xem chi tiết
Do Ngoc Thao My
Xem chi tiết
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết