1.Nhập 1 dãy số nguyên gồm 7 phần tử . Tính tổng các số chia hết cho 3
2. Nhập vào 1 dãy số nguyên gồm n phần tử (n<= 160) . Tính số lượng số chẵn và số lượng số lẻ có trong đây.
1.Nhập 1 dãy số nguyên gồm 7 phần tử . Tính tổng các số chia hết cho 3 2. Nhập vào 1 dãy số nguyên gồm n phần tử (n<= 160) . Tính số lượng số chẵn và
By Emery
1.
Program Tin_hoc;
uses crt;
var i,n:integer;
a: array [1..7] of integer;
begin
writeln(‘Nhap 7 so:’);
n:=0;
for i:= 1 to 7 do begin readln(a[i]); if a[i] mod 3 = 0 then n:=n+a[i] end;
writeln(‘Tong cac so chia het cho 3 la: ‘,n);
readln;
end.
2.
program Tin_hoc;
uses crt;
var i,n,chan,le:integer;
a:array [1..160] of integer;
begin
clrscr;
writeln(‘Nhap n<=160:’);readln(n);
while n>160 then
begin
write(‘Nhap lai:’);
readln(n);
end;
chan:=0;le:=0;
writeln(‘Nhap ‘,n,’ so:’);
for i:= 1 to n do
begin
readln(a[i]);
if a[i] mod 2 = 0 then inc(chan) else inc(le)
end;
writeln(‘Co ‘,chan,’ so chan va ‘,le,’ so le’);
readln;
end.
1/ Program Hotboy;
Uses crt;
Var a:array[1..7] of integer;
S,i : integer;
Begin
Clrscr;
S:=0;
For i:=1 to 7 do
Write(‘A[‘,i,’]’); readln(a[i]);
If a[i] mod 3 then S:=S+a[i];
Write(‘S’,S);
Readln
End.
2/ Program Hotboy;
Uses crt;
Var a:array[1..160] of integer;
Chan,le : byte;
Begin
Chan:=0; le:=0;
For i:= 1 to 160 do
Begin
Write(‘A[‘,i,’]’); readln(a[i]);
End;
If a[i] mod 2=0 then chan:=chan+1 else le:=le+1;
Write(‘so so le la’,le,’so so chan la’,chan);
Readln
End.