1) Em hãy viết chương trình pascal để nhập vào màn hình nhiều số nguyên 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.
2) Em hãy viết chương trình pascal để nhập vào màn hình20 số nguyên và tính tổng các số đã nhập.
1)
program cau1;
var n,s:integer;
begin clrscr;
repeat
write(‘Nhap so nguyen: ‘);readln(n);
inc(s);
until n=0;
writeln(‘Da nhap ‘,s,’ so’);
readln;
end.
2)
program cau2;
var i,S:integer;
A:array[1..20] of integer;
begin clrscr;
S:=0;
for i:=1 to 20 do
begin
writeln(‘A[‘,i,’]:’); readln(A[i]);
end;
S:=S+A[i];
write(‘Tong la: ‘,S);
readln;
end.
Học tốt!
1,
var n,d:integer;
begin
repeat
write(‘Nhap n: ‘); read(n);
inc(d);
until(n=0);
writeln;
write(‘d =’,d);
readln
end.
2,
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.
# học tốt #