Viết chương trình Pascal cho phép nhập vào 1 số có 5 chữ số
- Nếu ng sử dụng nhập 1 số chưa đúng yêu cầu, xuất ra thông báo số nhập chưa đúng và kết thúc chương trình.
- Nếu số nhập đúng có 5 chữ số: xét xem số đó có phải số đỉnh đồi hay không? Biết số đỉnh đồi là số ở giữa là số lớn nhất. Ví dụ số 23765 là số đỉnh đồi, số 23767 ko phải số đỉnh đồi.
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,kt;
char x,ln;
int main()
{
getline(cin,st);
d=5;
x=st[2];
ln=st[0];
for (i=1; i<=d-1; i++)
if (ln<=st[i]) ln=st[i];
if (ln==x) cout<<"YES";
else cout<<"NO";
return 0;
}
Viết chương trình nhập một số nguyên có 3 chữ số. Hãy cho biết 2 chữ số cuối cùng của số đó là bao nhiêu. Ví du: Nhập số nguyên có 3 chữ số: 324 Hai chữ số cuối cùng là: 24
Tham khảo
Đầu tiên chúng ta cần khai báo biến n kiểu int, sau đó yêu cầu người dùng nhập giá trị cho n.
Tiếp đến là ta chia lấy dư n cho 10 để lấy hàng đơn vị. Để lấy được hàng chục ta chia lấy nguyên cho 10 rồi sau đó chia lấy dư cho 10 (b = (n / 10) % 10).
Hàng trăm sẽ bằng n chia lấy nguyên cho 100.
Sau khi đã có được hàng trăm, hàng chục và hàng đơn vị, ta sử dụng switch..case để đọc theo hàng trăm, hàng chục và hàng đơn vị.
Tham khảo
Đầu tiên chúng ta cần khai báo biến n kiểu int, sau đó yêu cầu người dùng nhập giá trị cho n.
Tiếp đến là ta chia lấy dư n cho 10 để lấy hàng đơn vị. Để lấy được hàng chục ta chia lấy nguyên cho 10 rồi sau đó chia lấy dư cho 10 (b = (n / 10) % 10).
Hàng trăm sẽ bằng n chia lấy nguyên cho 100.
Sau khi đã có được hàng trăm, hàng chục và hàng đơn vị, ta sử dụng switch..case để đọc theo hàng trăm, hàng chục và hàng đơn vị nha
Viết chương trình nhập và xuất mảng có 100 phần tử các số nguyên
1/Nhập vào 1 số nguyên k, cho biết vị trí nào trong mảng bằng với k.
2/Nhập vào số nguyên h, cho biết h xuất hiện bao nhiêu lần trong mảng
3/ Tổng các phần tử của dãy
4/Số lượng các số hạng dương và tổng các số hạng dương
5/Số lượng các số hạng âm và tổng của các số hạng âmViết chương trình nhập và xuất mảng có 100 phần tử các số nguyên
uses crt;
var a:array[1..100]of integer;
i,n,k,h,dem,t,dem1,dem2,t1,t2:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('A[',i,']='); readln(a[i]);
end;
n:=100;
write('Nhap k='); readln(k);
for i:=1 to n do
if a[i]=k then write(i:4);
writeln;
write('Nhap h='); readln(h);
dem:=0;
for i:=1 to n do
if a[i]=h then inc(dem);
writeln(h,' xuat hien ',dem,' lan trong mang');
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu cua day la: ',t);
dem1:=0;
t1:=0;
dem2:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
inc(dem1);
t1:=t1+a[i];
end;
if a[i]<0 then
begin
inc(dem2);
t2:=t2+a[i];
end;
end;
writeln('Co ',dem1,' so duong');
writeln('Tong cac so duong la: ',t1);
writeln('Co ',dem2,' so am');
writeln('Tong cac so am la: ',t2);
readln;
end.
viết chương trình pascal, nhập vào dãy số nguyên ko có 100 phần tử. In dãy số đó ra màn hình cho biết trong dãy có bao nhiêu phần tử có giá trị chẵn và bao nhiêu phần tử có giá trị lẻ.
Var a:array[1..100] of integer;
i,d1,d2:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
End;
For i:=1 to 100 do
If a[i] mod 2 = 0 then d1:=d1+1
Else d2:=d2+1;
Writeln('So phan tu chan la ',d1);
Write('So phan tu le la ',d2);
Readln;
End.
uses crt;
var n,i,a[100],dem1,dem2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln(dem1,' ',dem2);
readln;
end.
Viết chương trình nhập vào mảng A gồm 20 phần tử số nguyên.Hãy đếm xem trong mảng A vừa nhập có bao nhiêu chữ số 3 xuất hiện và thông báo kết quả ra màn hình
Var a:array[1..20] of integer;
i,n,d:integer;
Begin
For i:=1 to 20 do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
if a[i] = 3 then d:=d+1;
End;
Write('Co ',d,' chu so 3');
Readln
End.
Viết chương trình Pascal hoàn chỉnh, trong đó có xây dựng các chương trình con để thực hiện một số công việc sau đây và gọi nó trong thân chương trình chính: 1. Nhập vào số nguyên, cho biết số đó là chẵn hay lẻ, âm hay dương; 2. Nhập vào 2 cạnh của hình chữ nhật, tính chu vi, diện tích của nó. 3. Cho 3 số, cho biết ba số đó có thoả mãn là 3 cạnh của một tam giác hay không. 4. Tính N! 5. Tính an. 6. Nhập vào bán kính R của một hình tròn, tính chu vi, diện tích của nó. 7. Biết điểm trung bình của một học sinh, cho biết bạn đó đạt học lực giỏi, khá, trung bình, yếu hay kém.
Viết chương trình nhập vào một xâu S có độ dài không quá 100 ký tự từ bàn phím. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. Thông báo kết quả ra màn hình. Xuất xâu đã nhập
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.
Từ các chữ số 1, 2, 3, 4, 5, 6 có thể lập được bao nhiêu số có 8 chữ số, trong đó chữ số 1 và chữ số 6 có mặt đúng 2 lần còn các chữ số khác xuất hiện 1 lần.
Từ các chữ số 1, 2, 3, 4, 5, 6 có thể lập được bao nhiêu số có 8 chữ số, trong đó chữ số 1 và chữ số 6 có mặt đúng 2 lần còn các chữ số khác xuất hiện 1 lần.
A.10 080 số
B. 10 008 số
C. 10 800 số
D. 18 000 số
Viết chương trình nhập vào từ bàn phím n và dãy số nguyên a1,a2,..an(0<n<100)
a. cho biết có bao nhiêu số lớn hơn k trong dãy a1,..,an
b. cho biết có bao nhiêu số có tổng các chữ số chia hết cho 3 ?
n = int(input("Nhập n: "))
a = [ ]
for i in range(n):
a.append(int(input(f"Nhập phần tử a[{i}]: ")))
k = int(input("Nhập k: "))
count_greater = 0
count_divisible_by_three = 0
for num in a:
if num > k:
count_greater += 1
if sum(int(digit) for digit in str(num)) % 3 == 0:
count_divisible_by_three += 1
print(f"Số lớn hơn {k}: {count_greater} số")
print(f"Số có tổng các chữ số chia hết cho 3: {count_divisible_by_three} số")
