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.
2 câu trả lời
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 #
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
