Bài 1.viết ct nhập vào n số tự nhiên đầu tiên .tính tổng các số chẵn trong dãy số và in ra màn hình.
Bài 2.viết ct pascal nhập 1 mảng các số nguyên bất kì ghi ra màn hình các số dương và chẵn có trong mảng
Bài 1.viết ct nhập vào n số tự nhiên đầu tiên .tính tổng các số chẵn trong dãy số và in ra màn hình. Bài 2.viết ct pascal nhập 1 mảng các số nguyên bấ
By Jade
1.
program mmm;
uses crt;
var n,i,s:longint;
begin
writeln(‘nhapn =’);readln(n);
i:=2;
while i>= n do
begin
s:=s+i;
i:=i+2;
end .
2.
var a:array[1..100] of integer;
n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then
write(a[i],’ ‘);
readln;
end.
Câu 1:
uses crt;
var a:array[1..100] of integer;n,i:integer;s:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>1 then s:=s+a[i];
write(‘Tong cac so chan: ‘,s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100] of integer;n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>1 then write(a[i],’ la so chan.’);
readln;
end.