1. Kết quả của biến sau chương trình:
a) i:=1; j:=1; k:=3;
While i<7 do i:=i+1; j:=j+2; k:=k*i;
b) i:=1; j:=3; k:=4;
While i<=5 do begin i:=i+1; j:=j*i; k:=k+j; end;
c) j:=1; k:=3;
for i:=1 to 5 do begin j:=j+i; k:=k+j; end;
2. Viết chương trình nhập vào dãy số nguyên. Với độ dài từ bàn phím rồi in ra số chẵn mà chia hết cho 3
2,
Viết chương trình :
Program songuyen;
uses crt;
var i,n: integer;
a: array [1..100] of integer;
begin
write(‘nhap so n:’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
writeln(‘nhung so chia het cho 3 trong day la:’);
for i:=1 to n do
if a[i] mod 3 = 0 then
writeln(a[i]);
readln;
end.
1,mik ko bt xl
Bn vote và cảm ơn dc ko
Chúc bạn thành công ????????