viết chương trình nhập cân nặng cho 20 học sinh .In ra màn hình

2 câu trả lời

Uses crt;

Var can_nang:Real;

Begin clrscr;

Write ('Nhap can nang là '); Readln( cần nang)

For i :=1 to 20 do writeln ('can nang) ;

Readln ;

End.

Uses crt;

Var can_nang:Real;

Begin clrscr;

Write ('Nhap can nang là '); Readln( cần nang)

For i :=1 to 20 do writeln ('can nang) ;

Readln ;

End.