Câu 5: Viết thuật toán theo cách liệt kê hoặc sơ đồ khối để giải các bài toán sau: a, Nhập vào 2 số nguyên dương a và b. Tính tổng, hiệu, tích thương của 2 số đó và in kết quả ra màn hình. b, Nhập vào 1 cạnh của một hình vuông. In ra màn hình diện tích và chu vi của nó. c, Viết chương trình nhập 2 số tự nhiên M, N và thông báo “ĐÚNG” nếu M, N cùng tính chẵn lẻ, ngược lại thì thông báo “SAI” d, Nhập N số bất kì từ bàn phím, đếm các số lớn hơn 10 và nhỏ hơn 20 và thông báo kết quả ra màn hình. Mọi người giúp em với ạ.

Dùng C++ hay Pascal hay C# hayC vậy bạn

Mình làm Pas trước cho nhanh, nếu bạn cần code C++/C#/C thì bình luận để mình sửa code lại cho đúng.

Program Tin_hoc;

Uses crt;

Var a,b,x,m,n,dem: int64;

      i,k: integer;
      M: array[1..100]: integer;

Begin

(*Cau a*)

        Writeln('Nhap lan luot so a,b cach nhau boi dau cach: '); Read(a); Read(b);

        Writeln;

        Writeln('a+b=';a+b);

        Writeln('a-b=';a-b);

        Writeln('a*b=';a*b);

        Writeln('a/b=';a/b);

(*Cau b*)

        Writeln('Nhap canh hinh vuong: '); Readln(x);

        Writeln('Chu vi hinh vuong: ';x*4);

        Writeln('Dien tich hinh vuong: '; x*x);

(*Cau c*)

        Writeln('M='); Readln(m);

        Writeln('N='); Readln(n);

        If (m-n) mod 0 = 0 then writeln(m,'',n,' deu co dung tinh chan, le')

        else writeln(m,'',n,' khong co cung tinh chan le');

(*Cau d*)

        Writeln('Nhap so so hang: '); Readln(k);

        dem:=0;

        For i:=1 to k do read(M[i]);  (*Lan luot nhap cac so cach nhau boi dau cach*)

        For i:=1 to k do 

                If (M[i]>10) and (M[i]<20) then dem:=dem+1;

        Writeln('So so hang lon hon 10 nho hon 20 trong day tren la: ', dem);

        Readln

End.