Viết chương trình nhập vào một số nguyên n và số a, liệt kê các số lớn hơn số a cho trước từ 1 đến n
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N>10). Tính và in ra màn hình các yêu cầu sau:
a. Tính tổng các số vừa nhập
b. tính tích các số vừa nhập
c. tính tb các số vừa nhập
d. hãy tìm số lớn nhất và số bé nhất
e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhập
f. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãy
giúp mik vs nha :(((
Câu 1 : Viết chương trình kiểm tra xem N được nhập từ bàn phím có phải là số nguyên tố hay ko ?
Câu 2 : Viết chương trình nhập vào một mảng các số nguyên . Ghi ra màn hình . Tìm giá trị max , min của mảng đó
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
cách viết chương trình nhập vào dãy gồm n số nguyên, hãy cho biết phần tử lớn nhất phần tử nhỏ nhất và tính trung bình của dãy số vừa nhập
uses crt;
var a:array[1..100]of integer;
n,i,max,min,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Trung binh cua day so la: ',t/n:4:2);
readln;
end.
Viết chương trình ghi ra màn hình kết quả hiệu của hai số nguyên a và b được nhập vào từ bàn phím
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
Viết tiếp vào chỗ chấm:
a) Số liền sau của 31 460 là: ............
b) Số liền trước của 18 590 là: ............
c) Các số 72 635 ; 76 532 ; 75 632 ; 67 532 viết theo thứ tự từ bé đến lớn là: .....................................................................
a) Số liền sau của 31 460 là: 31 461
b) Số liền trước của 18 590 là: 18 589
c) Các số 72 635 ; 76 532 ; 75 632 ; 67 532 viết theo thứ tự từ bé đến lớn là: 67 532 ; 72 356 ; 75 632 ; 76 532.
viết chương trình nhập số nguyên dương n. Nhập dãy gồm n số nguyên. Hãy tính tổng các số nằm ở vị trí chẵn trong dãy ?
program im_14424;
uses crt;
var A: array[1..100000] of integer;
S,i,n: integer;
begin
clrscr;
write('Nhap vao n: ');
readln(n);
S:=0;
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(A[i]);
if (A[i] mod 2 = 0 then S:=S+i;
end;
write(S);
readln
end.
Mô tả thuật toán của các bài toán sau:
a/ tìm giá trị tuyệt đối của một số a cho trước
b/ tìm số lớn nhất trong ba số a, b và c nhập từ bàn phím
program bai_5;
uses crt;
var a,b,c :real;
BEGIN
write('nhap vao so a'); Readln(a);
write('nhap vao so b'); Readln(b);
write('nhap vao so c'); Readln(c);
if a<0 then a:=-a;
max:=a;
if max <b then max:=b;
if max<c then max:=c;
write('gia tri tuyet doi cua a la:',a);
write('so lon nhat trong ba so a,b,c la:',max);
Readln
END.
Thanks
viết chương trình nhập 2 số nguyên từ bàn phím sau đó hiển thị số lớn nhất trên màn hình?
program ct_dautien;
uses crt;
var x:integer;
begin
writeln('moi nhap a,b');readln(a,b);
if a>b then write(a) else write (b);
readln
end.
Viết chương trình nhập vào 1 dãy số từ a1, a2, …, an. In dãy số vừa nhập ra màn hình theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử.
Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và in ra dãy số đó theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử. Sau đây là mã nguồn Python để thực hiện việc này:
```python
n = int(input("Nhập số phần tử của dãy: "))
a = []
for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))
count = 0
for i in range(n):
print(a[i], end=" ")
count += 1
if count == 10:
print()
count = 0
if count != 0:
print()
```
Giải thích:
Dòng 1: Nhập số phần tử của dãy.Dòng 2: Khởi tạo một danh sách rỗng để lưu trữ các phần tử của dãy.Dòng 4-5: Sử dụng vòng lặp for để nhập các phần tử của dãy từ bàn phím và thêm chúng vào danh sách a.Dòng 7: Khởi tạo biến count với giá trị ban đầu là 0, biến này sẽ được sử dụng để đếm số phần tử đã in ra trên mỗi dòng.Dòng 9-13: Sử dụng vòng lặp for để duyệt qua các phần tử của dãy a, in ra từng phần tử và tăng biến count lên 1. Nếu count đạt giá trị 10, in ra ký tự xuống dòng và reset lại biến count về 0.Dòng 15-16: Kiểm tra xem dòng cuối cùng có đủ 10 phần tử hay không, nếu không thì in ra ký tự xuống dòng để kết thúc dòng cuối cùng.Ví dụ:
```
Nhập số phần tử của dãy: 15
Nhập phần tử thứ 1: 1
Nhập phần tử thứ 2: 2
Nhập phần tử thứ 3: 3
Nhập phần tử thứ 4: 4
Nhập phần tử thứ 5: 5
Nhập phần tử thứ 6: 6
Nhập phần tử thứ 7: 7
Nhập phần tử thứ 8: 8
Nhập phần tử thứ 9: 9
Nhập phần tử thứ 10: 10
Nhập phần tử thứ 11: 11
Nhập phần tử thứ 12: 12
```
Viết chương trình bằng ngôn ngữ Pascal nhập dãy số A, biết số phần tử của dãy là n. Xác định và in ra các phần tử là số chẳn trong dãy A. Nếu nhập n<0 thì thông báo " bạn nhập sai, yêu cầu nhập lại "
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.