Question

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

Answer 1

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.

Answer 2

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.

Answer 3

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.