Lập chương trình có sử dụng thử tục (Procedure) để tính lũy thừa nguyên của cơ số nguyên dương. Cả hai số này được đọc vào từ bàn phím. Khi người dùng nhập vào cơ số âm thì phải thông báo: “không có lũy thừa cơ số âm, vào lại dữ liệu”.(pascal)
Viết chương trình sử dụng thủ tục kiểm tra 1 số nguyên dương nhập vào từ bàn phím có phải là số nguyên tố hay không
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
bool kt=true;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true && n>=2) cout<<"YES";
else cout<<"NO";
return 0;
}
Viết chương trình nhập vào từ bàn phím các số nguyên dương, khi người dùng nhập số có nhiều chữ số, thì chương trình sẽ tính tổng của các chữ số đó và in ra màn hình. (dùng Python để viết chương trình).
Ví dụ: khi người dùng nhập số 246 thì tổng bằng 2 + 4 + 6 = 12
Viết chương trình nhập vào từ bàn phím số nguyên N. Đưa ra màn hình thông báo N là số nguyên âm hay số nguyên dương chẵn
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n<0) cout<<"la so am";
else cout<<"la so duong";
return 0;
}
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 50 hay không, thông báo ra màn hình.
program;
uses crt;
var a:longint;
begin
clrscr;
write('nhap a:');readln(a);
if(a>=0)and(a<=50)then write('n nam trong khoang tu 1 den 50')
else write('n khong nam trong khoang tu 1 den 50');
readln;
#include <bits/stdc++.h>
using namespace std;
int a;
int main()
{
cin>>a;
if ((a>=1) and (a<=50)) cout<<"YES";
else cout<<"NO";
return 0;
}
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 100 hay không, thông báo ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có chia hết cho 3 hoặc 5 hay không, thông báo ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có chia hết cho 3 hoặc 5 hay không, thông báo ra màn hình.
uses crt;
var a:integer;
begin
clrscr;
readln(a);
if (a mod 3=0) or (a mod 5=0) then write('co')
else writeln('khong');
readln;
end.
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
viết chương trình sử dụng bến mảng nhập vào 1 dãy a gốm n số nguyên (n được nhập từ bàn phím). Tính tổng các số nguyên âm có trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln(t);
readln;
end.