Question

Bài 1: Viết chương trình tính n! ( n! = 1.2.3.4...n )

Bài 2: Viết chương trình nhập vào mảng gồm n phần tử là số nguyên dương, in ra mảng vừa nhập. Kiểm tra và in ra màn hình các phần tử là số chẵn.

MN GIÚP MÌNH VỚI MAI PHẢI NỘP BÀI RỒI HUHU T_T

Answer 1

B1:

uses crt;

var n,i:longint;

begin

write('nhap n= ');readln(n);

for i:=1 to n do n:=n*1;

write('n!= ',n);

readln

end.

Answer 2

Lời giải :

Bài 2 :

program hotrotinhoc ;

var a : array[1..32000] of integer ;

i,n : integer ;

begin

write('Nhap do dai cua mang :'); readln(n);

writeln('Nhap gia tri cua cac phan tu');

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],' ');

readln

end.