bài 1: em hãy viết chương trình pascal nhập vào 1 số nguyên n từ bàn phím. em hãy kiểm tra số đó có chia hết cho 2 hay ko? in số đó ra màn hình. bài 2: em hãy
bài 1: em hãy viết chương trình pascal nhập vào 1 số nguyên n từ bàn phím. em hãy kiểm tra số đó có chia hết cho 2 hay ko? in số đó ra màn hình. bài 2: em hãy viết chương trình pascal nhập vào 1 số nguyên n từ bàn phím. em hãy kiểm tra số đó có chia hết cho 50 hay ko. in số đó ra màn hình.
Lời giải 1 :
Bài 1:
Program bai1;
Uses crt;
Var n:integer;
Begin
Clrscr;
Write('n='); Readln(n);
If n mod 2=0 then writeln('n chia het cho 2, n=',n)
else writeln('n khong chia het cho 2, n=',n);
Readln
End.
Bài 2:
Program bai2;
Uses crt;
Var n:integer;
Begin
Clrscr;
Write('n='); Readln(n);
If n mod 50=0 then writeln('n chia het cho 50, n=',n)
else writeln('n khong chia het cho 50, n=',n);
Readln
End.
Thảo luận
Lời giải 2 :
Bài 1:
Program bai1;
Uses crt;
Var n:integer;
Begin;
Clrscr;
Write('n= '); Readln(n);
If n mod 2=0 then writeln('n chia het cho 2, n=',n) else writeln('n khong chia het cho 2, n=',n);
Readln
End.
Bài 2:
Program bai2;
Uses crt;
Var n:integer;
Begin;
Clrscr;
Write('n='); Readln(n);
If n mod 50=0 then writeln('n chia het cho 50, n=',n) else writeln('n khong chia het cho 50, n=',n);
Readln
End.
mik trả lời hơi chậm sorry.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247