giải dùm em vài bài tập TURBO pascal

[zenzenlk]

tình hình là cô của em cho em mấy bài tập pascal mà em thì lại chả hiểu gì...
bro nào hảo tâm giúp em với
1. Viết chương trình nhập vào số nguyên dương N, hãy tính tổng các số chia hết cho 2 trong phạm vi từ 1 đến N
2. Viết chương trình nhập vào số nguyên dương N, hãy in ra màng hình các số chia hết cho 3 hoặc 5 trong phạm vi 1 đến N
3. Viết chương trình nhập vào số nguyên dương N, hãy cho biết có bao nhiêu số chia hết cho 2 trong phạm vi 1 đến N
4. Viết chương trình tính tích T= 1x2x3x.... cho tới khi T>39 triệu thì dừng lại
5. nhập từ bàn phím tuổi cha và con ( hiện tại tuổi cha lớn hơn 2 lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25). đưa ra màng hình câu trả lời cho câu hỏi " bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con

[Hannah]

Học trường LK hay Văn Hiến vậy?

[zenzenlk]

trường văn hiến.... cô Nguyệt dạy tin ....

[zenzenlk]

ko ai giúp em sao :((

[delta21]

dễ thế ,tự làm đi!!!:surrender:
thế mới tiến bộ dc chứ:angry::angry::angry:

[FunnyKids]

Đi học không hiểu bảo lên mọi người giảng giúp còn có lý, nhờ làm bài hộ thế này chối lắm :(.

Bạn mở sách vở ra rồi cố thử tự làm, đến đâu ko hiểu hoặc tắc thì post lên đây mọi người giúp. Chứ làm hộ bạn một lần, rồi lần sau ai học hộ bạn nữa ?

[merikakunn]

Mấy bài này dễ ẹc mà :waaaht:

[zenzenlk]

nghĩ hoài có ra âu ......

[disappear]

a đồng hương :sogood:

[Hannah]

Học pascal 10 năm rồi sai ráng chịu nha.
1.

program bai1;
var t,n,i:interger;
Begin
t = 0;
readln('nhap so tu nhien n',n);
for i := 1 to n do
begin
if (n mod 2) = 0 then
t = t+n;
end;
writeln('tongsochiahet2la',t)
End.

[zenzenlk]

giúp đồng hương dùm đi bạn hiền....

[dung89sr]

xin mời nghiên cứu giải thuật đã :sogood:

[zenzenlk]

thank bạn nhé......

[DJRapDance]

hjx tin lớp 10 cả lớp mình toàn copy từ tờ trắc nghiệm thầy chỉ để học chứ chả hĩu gì cả....., câu nào không có trong đó thì lụi đại:(

[Hannah]

giúp đồng hương dùm đi bạn hiền....
Học lớp mấy vậy? Có nhỏ cháu gái đang học 12 VH!:beauty:

[jupiter0001]

Dễ quá, không hộ đâu.
Làm đi, lúc đó thấy cũng hay hay đấy

[I.R.Y]

google mà hỏi... đầy ra đó :sogood:

[duyminh1987]

tình hình là cô của em cho em mấy bài tập pascal mà em thì lại chả hiểu gì...
bro nào hảo tâm giúp em với
1. Viết chương trình nhập vào số nguyên dương N, hãy tính tổng các số chia hết cho 2 trong phạm vi từ 1 đến N
2. Viết chương trình nhập vào số nguyên dương N, hãy in ra màng hình các số chia hết cho 3 hoặc 5 trong phạm vi 1 đến N
3. Viết chương trình nhập vào số nguyên dương N, hãy cho biết có bao nhiêu số chia hết cho 2 trong phạm vi 1 đến N
4. Viết chương trình tính tích T= 1x2x3x.... cho tới khi T>39 triệu thì dừng lại
5. nhập từ bàn phím tuổi cha và con ( hiện tại tuổi cha lớn hơn 2 lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25). đưa ra màng hình câu trả lời cho câu hỏi " bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con

không học Pascal, chỉ học C...
Mấy bài này theo đánh giá là dễ, tự nghiên cứu cho hiểu bài.
làm thử bài 3 luôn


printf("\n nhap so nguyen duong n: ");
scanf("%d",&n);
int dem = 0;
for( int i =1; i<n; i++)
{
if ( i % 2 ==0 )
dem +=1;
}
printf("\n So luong cac so chia het cho 2 : %d", dem);


Các bài còn lại làm tương tự ^^
PS : lâu lắm mới đụng đến C...giờ đang học nốt Java để lết ra trường :shot:

[namthienmenh]

Bài quá dễ, ko làm được vậy chỉ có lười.
Mà lười xong lên đây nhờ làm hộ thì quá chuối

[disappear]

bài 5
var n,cha,con:integer;
begin
clrscr;
n:=0;
writeln(' tuoi cha ');
readln(cha);
writeln(' tuoi con ');
readln(con);
repeat
n:n+1;
con:=con+1;
cha:=cha+1;
until cha=2con;
writeln(' Sau ',n' nam thi tuoi cha gap doi thuoi con ');
readln;
end;

[zenzenlk]

... mấy bác ko giúp em thì đừng có mắng em.. em còn 1 đống bài.... chỉ nhờ các bro phụ 5 bài thui để mai em còn kịp nộp....

[zenzenlk]

Học lớp mấy vậy? Có nhỏ cháu gái đang học 12 VH!:beauty:

cháu anh học A mấy :sweat:

[rar_hill]

Cho pseudocode thôi nhé.

1/
sum = 0, i = 2
while i < n do
sum <- sum + i
i <- i + 2

return sum

Bài 2, 3 tương tự

4/
t = 1, i = 2
while t <= 39000000 do
t <- t * i
i <- i + 1
return t

5/
số năm = tuổi cha - 2 tuổi con

[disappear]

bài 4
var n:integer;
s:real;
begin
t:=1
n:=2
while t<39000000 do
begin
t:=t*n
n:=n+1;
end;
writeln(' T= 1x2x3x4...x',n)
readln;
end.

[zenzenlk]

thank các bro nhiều

[tcpip]

Thời này mà còn có trường dạy Pascal sao?

[zenzenlk]

sao ko chứ....

[nanowind]

pascal là cái vẹo gì thế :nosebleed:

[zenzenlk]

bác cứ đùa....

[DarkSorento]

Hỏi ké cái: m học lý thuyết đồ thị
Cho mình hỏi trong thuật toán tìm cây khung nhỏ nhất, ngoài các thuật toán phổ biến như Prim và Kruskal thì mình dùng duyệt rộng và duyệt sâu được không :D ?