1/ Em hãy viết ra các dòng lệnh bắt buộc phải có trong 1 chương trình pascal(không sử dụng biến).
2/ Em hãy viết ra các dòng lệnh bắt buộc phải có trong 1 chương trình pascal(có sử dụng biến).
3/Em hãy viết chương trình pascal để viết ra màn hình(đen) họ tên của mình 100 lần.
4/ Em hãy viết chương trình pascal để nhập vào màn hình (đen)nhiều số nguyên(không biết bao nhiêu số) cho đến khi nào nhập số 0 thì dừng và cho biết đã nhập bao nhiêu số, không tính số 0.
5/ Em hãy viết chương trình pascal để nhập vào màn hình (đen)20 số nguyên và tính tổng các số đã nhập.
1.
begin
end.
2.
var ;
begin
end.
3.
var s:string;
i:byte;
begin
write(‘Nhap ten: ‘); readln(s);
for i:=1 to 100 do
writeln(s);
readln
end.
4.
var n,d:integer;
begin
repeat
write(‘Nhap n: ‘); read(n);
inc(d);
until(n=0);
writeln;
write(‘d =’,d);
readln
end.
5.
var i:byte;
c,s:integer;
begin
for i:=1 to 20 do
begin
read(c);
s:=s+c;
end;
writeln;
write(‘Tong la: ‘,s);
readln
end.
1/
Dòng lệnh cần là:
Begin
end.
2/
var a:longint;
Begin
end.
3/
Program BTH;
uses crt;
var a:string;
i:byte;
Begin
clrscr;
Write(‘Nhap ten: ‘);readln(a);
For i:=1 to 100 do
Writeln(a);
readln;
end.
4/
Program BTH;
Uses Crt;
var n,i,k:longint;
Begin
clrscr;
i:=1;
k:=0;
n:=1;
While n<>0 do
Begin
Write(‘Nhap so thu ‘,i,’ : ‘);readln(n);
If n<>0 then
Begin
i:=i+1;
k:=k+1;
end;
end;
Writeln(‘So luong so co trong day: ‘,k);
readln;
end.
5/
Program BTH;
Uses Crt;
var n,i,k:longint;
Begin
clrscr;
For i:=1 to 20 do
Begin
Write(‘Nhap so thu ‘,i,’ : ‘);readln(n);
k:=k+n;
end;
Writeln(‘Tong day so tren la: ‘,k);
readln;
end.