Bài 7. Câu lênh lặp

Trangg Tranng

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

Đậu Văn Đăng Khoa
28 tháng 7 2017 lúc 18:26

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.

Bình luận (0)
Minh Lệ
23 tháng 4 2019 lúc 21:30

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.

Bình luận (0)

Các câu hỏi tương tự
Phan Thị Ka
Xem chi tiết
Maiiii
Xem chi tiết
Gia Kỳ
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
Kisaragi Saya
Xem chi tiết
Bảo Trâm
Xem chi tiết
Phùng Tú Văn
Xem chi tiết
Thư Uyên
Xem chi tiết