uses crt;
var n,i:integer;
st:string;
begin
clrscr;
readln(n);
if n mod 4=0 then writeln('n chia het cho 4')
else writeln('n khong chia het cho 4');
str(n,st);
writeln(length(st));
for i:=length(st) downto 1 do write(st[i]);
readln;
end.
Viết chương trình nhập vào từ bàn phím số nguyên N( 0<n<10000).
Kiểm tra xem số đó có chia hết cho 2 và cho 3 không, hay số đó không chia hết cho cả 2 và 3, hoặc chia hết cho 2 nhưng không chia hết cho 3 hay ngược lại không chia hết cho 3 nhưng không chia hết cho 2.
Viết chương trình nhập một số nguyên n từ bàn phím in ra màn hình kết quả a.số n đã nhập có phải là một số dương hay không b.số n đã nhập có phải số lẻ chia hết cho 3 hay không
Câu 1: Viết chương trình nhập từ bàn phím số nguyên n (số đối của n<10^9). Kiểm tra n có phải là số nguyên dương và chia hết cho 5.
Câu 2: Viết chương trình nhập từ bàn phím số nguyên n (số đối của n<10^9). Kiểm tra n có phải là số nguyên dương và chia hết cho 3.
1. Thực hành
Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.
Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.
• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:
• z:=y { gán giá trị số 7 vào biến nhớ z }
• y:=x { gán giá trị số 5 vào biến nhớ y }
• x:=z { gán giá trị số 7 vào biến nhớ x }
Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
X= a + b + c
Y= (a + b)2 / c.
Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
Viết chương trình pascal cho nhập vào số nguyên dương n(n<32000).In ra số đảo ngược.
Cho số nguyên N. Hãy viết chương trình đếm ngược, in ra các số nguyên theo thứ tự giảm dần từ N về 0.
Input
• Một số nguyên N(1<N<10).
Output
In ra N + 1 dòng, mỗi dòng ghi một số nguyên.
Code C++ giúp mình với ạ
Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
Bài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình
+ Dòng 1: Các ước của n
+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n
+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n
+ Dòng 4: Tổng các ước của n
( 2 bài khác nhau mọi người làm riêng ra giúp mình ạaaaaaa)
Viết chương trình nhập vào số tự nhiên N từ bàn phím. Kiểm tra số đó có chia hết cho 2 hay không?
Thuật toán
INPUT: Số tự nhiên N
OUTPUT: Kết quả kiểm tra số N: ‘là số chia hết cho 2’ hoặc ‘là số không chia hết cho 2’.
Bước 1. Nếu (N chia 2 lấy phần dư) = 0 thì in kết quả ‘là số chia hết cho 2’ ngược lại in kết quả ‘là số không chia hết cho 2’
Bước 2. Kết thúc thuật toán.
thực hiện trên pascal online ạ :((
giúp em với
cho số nguyên dương N (10<=N<=10^6). hãy đếm số lượng các số nguyên dương a nhỏ hơn N (10<=a<=N) thỏa mãn điều kiện: a có ít nhất 2 chữ số, đồng thời a có tất cả các chữ số giống nhau và chia hết cho 9.
viết chương trình đếm các số a thỏa mãn
