Cho mảng A các giá trị số nguyên (A[i] ≤ 10^200). Hãy lập trình là tính số giá trị chẵn và lẽ Yêu cầu: Dùng file
2 câu trả lời
Program Clear;
Uses crt;
Var A: array[1..10000] of string;
s: string;
code: byte;
i,n,dc,dl,so: integer;
Function cx(St: String): char;
Var vt: byte;
Begin
vt:=length(St);
cx:=St[vt];
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
dc:=0; dl:=0;
For i:=1 to n do
Begin
Write('Nhap ptu ',i,': '); Readln(A[i]);
End;
For i:=1 to n do
Begin
Val(cx(A[i]),so,code);
If so mod 2 = 0 then inc(dc)
Else inc(dl);
End;
Write('Co ',dc,' so chan va ',dl,' so le');
Readln;
End.
uses crt;
var d:text; t,n,i,m:longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n);
for i:=1 to n do begin readln(d,m); If m mod 2=0 then inc(t) end;
close(d);
writeln(t,' ',n-t);
readln
end.
Đây là cách ngắn ,tốt và đúng nhất nên mong các bạn mong hãy vote cho mình.
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 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 9 có lời giải chi tiết
