Program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if (n mod 4= 0 ) and (n mod 5 = 0) then
writeln('so ', n , ' la so chia het cho 4 va 5 ')
else
writeln('so ' , n , ' la so khong chia het 4 va 5 ');
readln;
end.
Viết chương trình nhập vào 5 số nguyên bất kì in ra màn hình số chẵn và số lẻ trong dãy số vừa nhập
nhập vào 2 số từ bàn phím kiểm tra xem tích 2 số đó có chia hết cho 5 hoặc 8 hay không?
giúp mik vs nha
Viết chương trình nhập vào từ bàn phím 5 số nguyên bất kì, in ra tổng 5 số vừa nhập
Câu 1: viết chương trình nhập vào N số tự nhiên đầu tiên,đếm xem có bao nhiêu số là số chẵn Câu 2: Viết chương trình nhập vào N số tự nhiên tính tổng các số chia hết cho 3 Em cần gấp lắm ạ:(
Viết chương trình nhập 10 số tự nhiên bất kì từ bàn phím rồi thống kê xem chúng có bao nhiêu số chẵn, bao nhiêu số lẻ. Thực hiện in ra màn hình các số chẵn và số lẻ đó.
VD: INPUT: 5,6,9,10,20,23,7,8,13,31.
OUTPUT: + co 6 so le
+ co 4 so chan
+ cac so chan la: 6 10 20 8
+ cac so le la: 5 9 23 7 13 31
Viết chương trình nhập vào số n với N nhập từ bàn phím. Kiểm tra số N là số dương hay âm
viết phương trình pascal nhập vào số n có 6 chữ số kiểm tra và xuất ra màn hình tổng các chữ số của số đó, sử dụng lệnh lặp for.....do
Sử dụng chương trình pascal:
a,Viết chương trình nhập 1 số n từ bàn phím.
b,Đếm xem có bao nhiêu số chẵn từ 0 đến n và tính tổng các số chẵn đó.
Viết chương trình nhập vào số nguyên dương n bất kỳ. Xuất ra trên màn hình kết quả tổng của dãy số sau: A = 1 + 2 + 3 + 4 + … + n Input: n = 5 Output: A = 15
