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.
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.
đây nha
câu đầu
var n,d:integer;
begin
repeat
write(‘Nhap n: ‘); read(n);
inc(d);
until(n=0);
writeln;
write(‘d =’,d);
readln
end.
câu thứ hai
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.
chúc bạn học tốt
1)
program cau1;
var n,s:integer;
begin clrscr;
repeat
writeln(‘Nhap so nguyen: ‘);readln(n);
inc(s);
until(n=0);
write(‘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!