Viết chương trình nhập vào 5 số nguyên Xuất ra có bao nhiêu số lẻ và bao nhiêu số chẵn
Bài 3:
Program FNG;
Uses crt;
Var n,i,dl,sl: longint;
Begin
Clrscr;
Write[‘Nhap n: ‘]; Readln[n];
dl:=0; sl:=0;
For i:=1 to n do
If i mod 2 = 1 then
Begin
sl:=sl+i;
inc[dl];
End;Writeln[‘1. ‘,sl];
Write[‘2. ‘,dl];
Readln
End.Anh nhớ vote 5 sao nhé
Bài 1
Uses crt;
Var N,i:word;
Begin
Clrscr;
Write[‘n=’];
Readln[n];
For i:=1 to n do if i mod 2 = 0 then write[‘so chan la:’,i] else write[‘so le la:’,i];
Bài 2 Uses crt
; Var n,i,s,a:word;
Begin
Clrscr;
Write[‘n=’];
Readln[n];
For i:=1 to n do s:=s+i;
Write[‘tong cua cac so tu 1 den n la:’,s];
Readln;
For i:=1 to n do a:=a*i;
Write[‘tich tu 1 den n la:’,a];
Readln End.
Readln
End.
Bài 3
Uses crt;
Var n,i,dl,sl: longint;
Begin
Clrscr;Write[‘Nhap n: ‘]; Readln[n];
dl:=0; sl:=0;
For i:=1 to n do
If i mod 2 = 1 then
Begin
sl:=sl+i;
inc[dl];
End;
Writeln[‘1. ‘,sl];
Write[‘2. ‘,dl];
Readln
End.Bài 4
✅ Viết chương trình nhập 1 mạng gồm n số nguyên tính tổng các số chẵn và tổng của các số lẻ. in kết quả ra màn hình
Viết chương trình nhập 1 mạng gồm n số nguyên tính tổng các số chẵn ѵà tổng c̠ủa̠ các số lẻ．in kết quả ra màn hình
Hỏi:
Viết chương trình nhập 1 mạng gồm n số nguyên tính tổng các số chẵn ѵà tổng c̠ủa̠ các số lẻ．in kết quả ra màn hìnhViết chương trình nhập 1 mạng gồm n số nguyên tính tổng các số chẵn ѵà tổng c̠ủa̠ các số lẻ．in kết quả ra màn hình
Đáp:
maianhnhi:Uses crt;
Var a: array[1..1000] of integer;
tsl，tsc，n，i: integer;
Begin
Clrscr;
Write[‘Nhap n vao: ‘]; Readln[n];
For i:= 1 to n do
Begin
Write[‘Nhap a[‘，i，’]= ‘]; Readln[a[i]];
End;
For i:=1 to n do
Begin
if a[i] mod 20 then tsl:=tsl+ a[i] else tsc:=tsc+ a[i];
End;
Writeln;
Writeln[‘Tong cac so chan trong day la: ‘，tsc];
Writeln[‘Tong cac so le trong day la: ‘，tsl];
Readln;
End.
*Nhớ tick ѵà chọn Ɩàm câu trả lời hay nhất giúp mình nhé!Đa tạ :333
*p/s: Thắc mắc，comment bên dưới!
Uses crt;
Var a: array[1..1000] of integer;
tsl，tsc，n，i: integer;
Begin
Clrscr;
Write[‘Nhap n vao: ‘]; Readln[n];
For i:= 1 to n do
Begin
Write[‘Nhap a[‘，i，’]= ‘]; Readln[a[i]];
End;
For i:=1 to n do
Begin
if a[i] mod 20 then tsl:=tsl+ a[i] else tsc:=tsc+ a[i];
End;
Writeln;
Writeln[‘Tong cac so chan trong day la: ‘，tsc];
Writeln[‘Tong cac so le trong day la: ‘，tsl];
Readln;
End.
*Nhớ tick ѵà chọn Ɩàm câu trả lời hay nhất giúp mình nhé!Đa tạ :333
*p/s: Thắc mắc，comment bên dưới!
Uses crt;
Var a: array[1..1000] of integer;
tsl，tsc，n，i: integer;
Begin
Clrscr;
Write[‘Nhap n vao: ‘]; Readln[n];
For i:= 1 to n do
Begin
Write[‘Nhap a[‘，i，’]= ‘]; Readln[a[i]];
End;
For i:=1 to n do
Begin
if a[i] mod 20 then tsl:=tsl+ a[i] else tsc:=tsc+ a[i];
End;
Writeln;
Writeln[‘Tong cac so chan trong day la: ‘，tsc];
Writeln[‘Tong cac so le trong day la: ‘，tsl];
Readln;
End.
*Nhớ tick ѵà chọn Ɩàm câu trả lời hay nhất giúp mình nhé!Đa tạ :333
*p/s: Thắc mắc，comment bên dưới!