Bài 9 Làm việc với dãy số Nhập Cân nặng Chiều cao In ra phần vừa nhập

2 câu trả lời

Program Hotboy ;

Uses crt;

Var a,b : longint;

Begin

Clrscr;

Write('lan luot nhap chieu cao,can nang'); 

Readln(a,b);

Writeln('chieu cao la',a);

Writeln('can nang la',b);

Readln

End.

program bai9;

uses crt;

var W,H:integer;

   writeln(Nhap chieu cao va can nang: '); readln(H,W);

   writeln('Chieu cao la :',H,' cm');

   writeln('Can nang la :',W,' kg');

readln;

end.

Học tốt!