Làm nhanh giúp mình ạ. Vết chtr làm việc: Cv1:in dòng chữ ' mời nhập số' Cv2: nhập 1 số thực cho biến a. Với số lần là 10 lần
2 câu trả lời
program nhap10lan;
uses crt;
var i:byte;
a:real;
begin
clrscr;
for i:=1 to 10 do
begin
write('Moi nhap so: ');
readln(a);
end;
readln
end.
Không hiểu đề lắm, nhưng có vẻ đây là câu trả lời.
Uses crt;
Var i:integer;a:real;
Begin
For i:=1 to 10 do begin
Write('moi ban nhap');readln(a);end;
Readln
End.
