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

zenzenlk · #1 06-10-2010, 20:04

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 · #2 06-10-2010, 20:12

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

zenzenlk · #3 06-10-2010, 20:19

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

zenzenlk · #4 06-10-2010, 20:26

ko ai giúp em sao

delta21 · #5 06-10-2010, 20:31

dễ thế ,tự làm đi!!!

thế mới tiến bộ dc chứ

FunnyKids · #6 06-10-2010, 20:31

Đ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 · #7 06-10-2010, 20:32

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

zenzenlk · #8 06-10-2010, 20:35

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

disappear · #9 06-10-2010, 20:35

a đồng hương

Hannah · #10 06-10-2010, 20:36

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

Code:

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.