Question

[Trịnh Hồng Minh Châu]

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.

Answer 1

[Nguyễn Lê Phước Thịnh]

Bài 1:

begin

end.

Bài 2:

write('a='); readln(a);

Bài 3:

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 100 do

writeln('Nguyen Le Phuoc Thinh');

readln;

end.

Bài 4:

uses crt;

var n,dem:integer;

begin

clrscr;

dem:=0;

repeat

write('nhap n='); readln(n);

dem:=dem+1;

until n=0;

writeln('ban da nhap ',dem,' so');

readln;

end.

Bài 5:

uses crt;

var i,t,a:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do

begin

write('nhap so thu ',i,':'); readln(a);

t:=t+a;

end;

writeln('tong cac so vua nhap la: ',t);

readln;

end.