I'M A HACKER
20/07/2004
| Số câu hỏi | 0 |
| Số câu trả lời | 10 |
| Điểm | 50 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (12)
-
I'M A HACKER đã trả lời trong câu hỏi: tin học 8 (đang gấp chỉ mình với) Cách đây 6 năm
program battap;
uses crt;
var n,i:longint;
begin
clrscr;
write('Nhap N= '); readln(n);
for i:=1 to n-1 do
if (i mod 2=0) and (i mod 3=0) then write(i,' ');
readln;
end.
-
I'M A HACKER đã trả lời trong câu hỏi: - Viết chương trình nhập vào một dãy số nguyên gồm n số Cách đây 6 năm
program traloi;
uses crt;
var n,i:longint;
a:array[1..100] of longint;
begin
clrscr;
write('Nhap N= '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');
readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln;
end.
-
I'M A HACKER đã trả lời trong câu hỏi: tim boi so cua 6 va 8 Cách đây 6 năm
24
-
I'M A HACKER đã trả lời trong câu hỏi: Kết quả chương trình Cách đây 6 năm
a) x=6 y=5
b)k=52 j=47
-
I'M A HACKER đã trả lời trong câu hỏi: Viết chương trình Cách đây 6 năm
program us;
uses crt;
var i,n:longint;
begin
clrscr;
write('Nhap N= '); readln(n);
write('Uoc cua so N la: ');
for i:=1 to n do
if n mod i=0 then write(i,' ');
readln;
end.
-
I'M A HACKER đã đặt câu hỏi: Tam giác pascal Cách đây 6 năm
Viết chương trình tìm dáy số thuộc dòng thứ N (với N nhập từ bàn phím) của tam giác Pascal.
-
I'M A HACKER đã trả lời trong câu hỏi: Tam giác pascal Cách đây 6 năm
program bai3;
uses crt;
var n,i,d,k,l,j:longint;
a:array[1..100] of longint;
{-------------------------------------}
procedure nhap;
begin
repeat
write('Nhap N= '); readln(n);
until (n>=2) and (n<=25);
end;
{-----------------------------------}
procedure xuli;
begin
a[1]:=1;
for i:=1 to n do
for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];
for i:=1 to n+1 do write(a[i],' ');
end;
{----------------------------------------}
BEGIN
clrscr;
nhap;
xuli;
readln;
END. -
I'M A HACKER đã đặt câu hỏi: Tam giác pascal Cách đây 6 năm
Viết chương trình tìm dáy số thuộc dòng thứ N (với N nhập từ bàn phím) của tam giác Pascal.
-
I'M A HACKER đã trả lời trong câu hỏi: Giup minh voi Cách đây 6 năm
program bai20;
uses crt;
var tl,tc,i,n:longint;
begin
clrscr;
write('Nhap N= '); readln(n);
tl:=0; tc:=0; i:=0;
while i<=n do
begin
if i mod 2=0 then tc:=tc+i;
if i mod 2<>0 then tl:=tl+i;
inc(i);
end;
writeln('Tong chan: ',tc);
writeln('Tong le: ',tl);
if tc>tl then write('Tong chan lon hon')
else if tc<tl then write('Tong le lon hon')
else if tc=tl then write('Hai tong bang nhau');
readln;
end. -
I'M A HACKER đã trả lời trong câu hỏi: Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím với điều kiện chỉ được dùng 2 biến? Cách đây 6 năm
program bai20;
uses crt;
var a,max:longint;
begin
clrscr;
max:=0;
write('Nhap so 1: '); readln(a);
if max<a then max:=a;
write('Nhap so 2: '); readln(a);
if max<a then max:=a;
write('Nhap so 3: '); readln(a);
if max<a then max:=a;
write('Nhap so 4: '); readln(a);
if max<a then max:=a;
write('So lon nhat trong 4 so la: ',max);
readln;
end.
