1 trả lời
Tính tích các số tự nhiên liên tiếp từ 1 đến N [Tin học - Lớp 8]
1 trả lời
Trình bày các bước sắp xếp dữ liệu [Tin học - Lớp 7]
2 trả lời
Trog các vd sau vd nào là thuật toán; [Tin học - Lớp 6]
2 trả lời
Phần mềm nào sau đây là phản mềm Sơ đồ tư duy [Tin học - Lớp 6]
1 trả lời
Câu 1:
uses crt;var n,i,s:integer;begin clrscr; s:=0; write[‘Nhap n: ‘]; readln[n]; for i:=1 to n do s:=s+i; write[‘Tong: ‘,s]; readln;
end.
Câu 2:
uses crt;var a:array[1..1000000] of longint; n,i,s:integer;begin clrscr; s:=0; write[‘Nhap so luong phan tu: ‘]; readln[n]; for i:=1 to n do begin write[‘Nhap phan tu thu ‘,i,’: ‘]; readln[a[i]]; s:=s+a[i]; end; write[‘Tong: ‘,s]; readln;
end.
Câu 3:
uses crt;var a:array[1..1000000] of longint; n,i,d:integer;begin clrscr; d:=0; write[‘Nhap so luong phan tu: ‘]; readln[n]; for i:=1 to n do begin write[‘Nhap phan tu thu ‘,i,’: ‘]; readln[a[i]]; if a[i] mod 3=0 then d:=d+1; end; write[‘Co ‘,d,’ so chia het cho 3′]; readln;
end.
Câu 4:
uses crt;var a:array[1..1000000] of real; min:real; n,i:integer;begin clrscr; write[‘Nhap so luong phan tu: ‘]; readln[n]; for i:=1 to n do begin write[‘Nhap phan tu thu ‘,i,’: ‘]; readln[a[i]]; end; min:=a[1]; for i:=2 to n do if a[i]