Var
i,d,n :integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>0 then d:=d+1;
write('mang A co :',d,'so nguyen duong');
readln
end.
CAU 1:
A, Nhap vao so nguyen n ; Tinh tong S= 1+2+3+...+n
B, Nhap vao mot mang gom m so nguyen . Tinh tong cac phan tu cua mang do.
GIUP MINH VOI NHA MOI NGUOI ...
nhap so nguyen n. tinh nhap x tinh tong cac so la uoc x la 1 den n
uses crt;
var n, i:integer;
begin
clrscr;
write('Nhap vao mot so nguyen:')
readln(n);
if n<=1 then writeln(n,' khong la so nguyen to,)
else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to,);
end;
readln
end.
a) Nêu công dụng của từng câu lệnh trong chương trình theo thứ tự từ 1 đến 16
b) Theo em, khi nhập vào số 9 thì chương trình sẽ xuất thông báo gì?
c) Theo em, khi nhập vào số 131 thì chương trình sẽ xuất thông báo gì?
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so phan tu co trong day:');readln(n);
for i:=1 to n do begin
writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);
end;
for i:=1 to n do begin
if (a[i] mod 2=0) and (a[i] mod 3=0)
then writeln('Phan tu chia het cho 2 va 3 la:',a[i])
end;
readln
end.
Chương trình trên đúng k ạ
viet chuong trinh nhap vao tu ban phim diem toan cua 1 mang gom 30Hs.Xet va in ra man hinh nhung HS co diem toan lon hon 6,5
giúp mk bt pascal này vs!!!!!
Giả thiết có N hộp được đặt tên A1,A2,....,AN (3<=N<=200). Mỗi hộp được khóa bởi một khóa riêng. Người ta bỏ vào mỗi hộp một chìa khóa và khóa các hộp từ A3 cho đến AN. sau đó mở hai hộp A1 và A2 lấy các chìa khóa ra. Nếu những chìa khóa này mở được một số hộp nào đó, người ta sẽ lấy các chìa khóa ra từ đó và mở tiếp các hộp khác. Nếu cuối cùng người ta mở được hết các hộp, thì các chìa khóa gọi là bố trí tốt.
vct pascal tìm xem có bao nhiêu cách bố trí tốt chìa khóa
vd: N=6 có 240 cách bố trí tốt!
cảm ơn trước ạ!!!
Viết chương trình tính tổng các số chẵn trong dãy số nguyên A1, A2, ..., An. Biết rằng n, A1, A2, ..., An là các số nguyên nhập từ bàn phím (n>0)?
Các bạn giúp mình nha ,mình cần gấp lắm
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;
nhập số nguyên dương n in ra tổng các số nguyên dương n và dãy số a1 a2...an. Hãy in ra số lớn nhất (max) của dãy số đó
