Viết chương trình pascal tìm số chẵn lẻ

Program Hotboy;

Uses crt;

var n,S,H,i:integer

Begin

Clrscr;

Write['Nhap so n tu ban phim :'];

Readln[n];

 For i:=1 to n do

        If [i mod 2=0 ] then S:=S+i;

        Else

    H:= H+i;

Write['tonh chan la',S,'tonh le la ',H];

Readln

End.

1. viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số lẻ chia hết cho 5 hay không

2 viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số chẵnchia hết cho 5 hay không

Em chưa học câu lệnh lặp và đây là bài kiểm tra vest ngày mai của em mong mọi người giúp đỡ em mà không dùng câu lệnh lặp được không ạ

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

Viết chương trình nhập vào một số thực, kiểm tra số đó là số chẵn hay số lẻ

Các câu hỏi tương tự

1 trả lời

Viết hình lục giác trong logo và hình tam giác [Tin học - Lớp 4]

3 trả lời

Sơ đồ khối là gì [Tin học - Lớp 6]

1 trả lời

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Câu 1: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra a,b cùng dáu hay trái dấu [ cùng âm hoặc cùng dương hoặc âm, dương hoặc dương, âm]

Câu 2: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra tính chẵn lẻ [ cùng lẻ hoặc cùng chẵn hoặc.......]

Câu 1: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra a,b cùng dáu hay trái dấu [ cùng âm hoặc cùng dương hoặc âm, dương hoặc dương, âm]

Câu 2: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra tính chẵn lẻ [ cùng lẻ hoặc cùng chẵn hoặc.......]

1. Registered User

   Viết chương trình nhập vào một dãy số nguyên khác 0[nhập số 0 để kết thúc dãy số]. Đếm xem dãy số có bao nhiêu số chẵn, bao nhiêu số lẻ.

2. Registered User

   chương trình đơn giản mà bạn !

   var c,l,i,n,a : integer;
   begin
   write['Nhap so phan tu cua day: '];
   readln[n];
   c:=0;
   l:=0;
   for i:=1 to n do
   begin
   write['Nhap phan tu thu ',i,': '];
   readln[a];
   if a mod 2 = 0 then c:=c+1 else l:=l+1;
   end;
   write['Day co ',c,' so chan va ',l,' so le'];
   readln;
   end.

Quy định

• Bạn không thể tạo chủ đề mới
• Bạn không thể trả lời bài viết
• Bạn không thể gửi file đính kèm
• Bạn không thể sửa bài viết của mình

Quy định DDTH.com

Answers [ ]

1. hiennhi

   0

   2021-07-22T14:13:13+00:00 22/07/2021 at 14:13

   Reply

   @Meoss_

   * Viết chương trình kiểm tra tính chẵn lẻ của số nguyên N từ bàn phím:

   Program Kiemtra_chanle;

   Uses crt;

   var N:integer;

   begin

   clrscr;

   Write[‘Nhap so nguyen N’];Readln[N];

   If [ N mod 2=0] then write[N,’la so chan’] else write[N,’la so le’];

   Readln;

   End.

3. anhthu

   1

   2021-07-22T14:13:13+00:00 22/07/2021 at 14:13

   Reply

   program chan_le;

   Uses crt;

   var n:integer;

   begin

           clrscr;

           write[‘Nhap n: ‘];  readln[n];

           if n mod 2=0 then write[n,’ la so chan’]

                   else write[n,’ la so le’];

           readln;

   end.