Nhập vào từ bàn phím số nguyên dương X (1 ≤ X ≤ \(10^9\) ).
Xuất ra màn hình chữ số tận cùng của X trong hệ thập phân.
viết chương trình nhập mảng 1 chiều A gồm m số nguyên từ bàn phím. Đếm số lần xuất hiện của X trong mảng A. với X là số nguyên nhập từ bàn phím. Xất kết quả ra màn hình
Program HOC24;
var m,i,d: integer;
a: array[1..32000] of integer;
begin
write('Nhap m= '); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap X = '); readln(x);
d:=0;
for i:=1 to n do if a[i]=x then d:=d+1;
write(X,' xuat hien ',d,' lan trong mang');
readln
end.
Hãy viết chương trình nhập vào từ bàn phím một số X , nếu X lớn hơn 0 thì xuất ra màn hình X là số dương ngược lain xuất ra màn hình X là số âm
#include <bits/stdc++.h>
using namespace std;
double x;
int main()
{
cin>>x;
if (x>0) cout<<"X la so duong";
else cout<<"X la so am";
return 0;
}
tin học: C1 viết phương trình nhập số nguyên dương a có 3 chữ số .tính tổng các chữ số của a
C2: viết chương trình nhập từ bàn phím một số nguyên x. hãy tính và đưa ra màn hình giá trị của hàm f(x)= x^10+5x+1
Câu 1:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
int t=0;
while (n>0)
{
int x=n%10;
t=t+x;
n=n/10;
}
cout<<t;
return 0;
}
Hãy viết chương nhập vào 1 dãy N số nguyên từ bàn phím ( N là Nguyên dương được nhập từ bàn phím vào N>10) . Tính và in ra màn hình trung bình của các số
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
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)
Chương trình nhập vào 2 số x và y với x,y là số nguyên được nhập từ bàn phím tính và xuất ra màn hình tổng hai số x,y
uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
writeln(x+y);
readln;
end.
viết chương trình nhập vào một dãy số nguyên . số phân tử của dãy được nhập từ bàn phím a, in ra dãy số vừa nhập ra màn hình b, tính tổng các phân tử dương có trong dãy số
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln(t);
readln;
end.
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.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
Viết chương trình nhập vào số nguyên dương N (1<N<10^10) từ bàn phím, Hãy sắp xếp lại các chữ số của N sao cho ta được số lớn nhất, in kết quả ra màn hình
uses crt;
var n,i,d,x,j,tam:longint;
a:array[1..11]of integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
str(n,st);
d:=length(st);
for i:=1 to d do
begin
val(st[i],a[i],x);
end;
for i:=1 to d-1 do
for j:=i+1 to d do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to d do
write(a[i]);
readln;
end.
Nhập hai nguyên dương N từ bàn phím và đưa ra màn hình thông tin sau :
Dòng 1: vị trí của chữ số 0 đầu tiên trong phần thập phân của số √N
Dòng 2: số có nhiều ước nhất trong đoạn từ √N đến N
Dòng 3: hai số nguyên tố a, b thỏa mãn a + b = N (hai số cách nhau bởi dấu cách)
Dòng 4: số hoàn chỉnh nhỏ nhất còn lớn hơn N
giúp em với ạ em cảm ơn ạ