Viết chương trình cho phép nhập một dãy gồm n số nguyên từ bàn phím [0n la:’]; for j:=1 to n do if j mod 20 then write[j,’ ‘]; readln;
end.
bài 2:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write[‘Nhap n:’]; readln[n]; s1:=1; s:=0; write[‘tong cac so tu 1->n la:’]; for i:=1 to n do s:=s+i; write[s]; writeln; write[‘tich cac so tu 1->n la:’]; for j:=1 to n do s1:=s1*j; write[s1]; readln;
end.
bài 3:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write[‘Nhap n:’]; readln[n]; s1:=0; s:=0; for i:=1 to n do if i mod 20 then s:=s+i; write[‘tong cac so le tu 1->n la:’,s]; writeln; for j:=1 to n do if j mod 20 then inc[s1]; write[‘co tat ca ‘,s1,’ so le’]; readln;
end.
bài 4:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write[‘Nhap n:’]; readln[n]; s1:=0; s:=1; for i:=1 to n do if i mod 2=0 then s:=s*i; write[‘tich cac so chan tu 1->n la:’,s]; writeln; for j:=1 to n do if j mod 2=0 then inc[s1]; write[‘co tat ca ‘,s1,’ so chan’]; readln;
end.
câu 1: nhập vào mảng N số nguyên : a] in ra màn hình các số chẵn có trong màng b] tính tổng các số lẻ trong mảng câu 2: viết phương trình nhập vào biến mảng N số nguyên , với N được nhập từ bàn phím. in ra dãy số vừa nhập in ra số lớn nhất của dãy số tính và in ra tổng các số các dãy số câu 3: viết chương trình nhập vào biến mảng điểm môn tin học và in ra màn hình cho n học sinh .Với n và điểm môn học nhập từ bàn phím
mọi người giúp mình với ạ
Viết chương trình nhập số nguyên n và n số nguyên từ bàn phím?In ra màn hình tổng các số chẵn
Các câu hỏi tương tự
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình tổng các giá trị là số chẵn.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 dến N, sau đó in ra màn hình.
- Toán lớp 8
- Ngữ văn lớp 8
- Tiếng Anh lớp 8
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
viết chương trình nhập vào 1 số nguyên n, in ra màn hình thông báo có bao nhiêu số chẵn từ 1 đến n, in ra các số chẵn
Các câu hỏi tương tự
Video liên quan
bài 1:
uses crt;var n,i,j:longint;begin clrscr; write['Nhap n:']; readln[n]; write['so chan tu 1->n la:']; for i:=1 to n do if i mod 2=0 then write[i,' ']; writeln; write['so le tu 1->n la:']; for j:=1 to n do if j mod 20 then write[j,' ']; readln;
end.
bài 2:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write['Nhap n:']; readln[n]; s1:=1; s:=0; write['tong cac so tu 1->n la:']; for i:=1 to n do s:=s+i; write[s]; writeln; write['tich cac so tu 1->n la:']; for j:=1 to n do s1:=s1*j; write[s1]; readln;
end.
bài 3:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write['Nhap n:']; readln[n]; s1:=0; s:=0; for i:=1 to n do if i mod 20 then s:=s+i; write['tong cac so le tu 1->n la:',s]; writeln; for j:=1 to n do if j mod 20 then inc[s1]; write['co tat ca ',s1,' so le']; readln;
end.
bài 4:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write['Nhap n:']; readln[n]; s1:=0; s:=1; for i:=1 to n do if i mod 2=0 then s:=s*i; write['tich cac so chan tu 1->n la:',s]; writeln; for j:=1 to n do if j mod 2=0 then inc[s1]; write['co tat ca ',s1,' so chan']; readln;
end.