PK Conan
01/01/2005
| Số câu hỏi | 0 |
| Số câu trả lời | 4 |
| Điểm | 23 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (4)
-
PK Conan đã trả lời trong câu hỏi: viết chương trình nhập vào mảng A gồm N phần tử ( N Cách đây 4 năm
Uses crt;
Var a:array[1..99] of longint;
n,i,s: Longint;
begin
repeat
clrscr;
write('n = ');
readln(n);
until (n > 0) and (n < 100);
for i := 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i] > 0) then
s:=s+a[i];
end;
writeln('Mang vua nhap la: ');
for i := 1 to n do write(a[i],' ');
writeln;
if (s = 0) then writeln('Khong co so duong trong mang')
else write('Tong cac so duong trong mang la: ',s);
readln;
end.
-
PK Conan đã trả lời trong câu hỏi: Xuất ra màn hình số hạng dươkng đầu tiên của dãy số Cách đây 4 năm
Uses crt;
Var a:array[1..100] of longint;
n,i,dem,so: Longint;
begin
repeat
clrscr;
write('nhap so phan tu cua day: ');
readln(n);
until (n > 0) and (n <= 100);
for i := 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i] > 0) and (dem = 0) then
begin
inc(dem);
so:=a[i];
end;
end;
if (dem = 0) then writeln('khong co so duong trong day')
else writeln('so duong dau tien trong day la: ',so);
readln;
end.
-
PK Conan đã trả lời trong câu hỏi: Viết chương trình nhập vào số nguyên a kiểm tra xem a có là bội của 2,3và 5 không, đưa ra màn hình có thông báo hay không? Nếu nhập vào số âm thì thông báo ko thực hiện Cách đây 4 năm
Uses crt;
Var a: longint;
begin
clrscr;
write('a = ');
readln(a);
if (a < 0) then writeln('Khong thuc hien')
else
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln('La boi cua 2,3,5')
else writeln('Khong la boi cua 2,3,5');
readln;
end.
-
PK Conan đã trả lời trong câu hỏi: Nhập vào 1 số a (Từ 2 -> 8) và In ra thứ tương ứng với số đó. Cách đây 4 năm
Uses crt;
Var a: longint;
begin
repeat
clrscr;
write('a = ');
readln(a);
until (a >= 2) and (a <= 8);
case a of
2: writeln('Thu hai');
3: writeln('Thu ba');
4: writeln('Thu tu');
5: writeln('Thu nam');
6: writeln('Thu sau');
7: writeln('Thu bay');
8: writeln('Chu nhat');
end;
readln;
end.
