Viết chương trình nhập vào số nguyên dương 𝑛. Xuất ra màn hình chữ số lớn nhất của 𝑛. pascal. dung longint, while , for :> Helppp me !!!!
Viết chương trình nhập vào số nguyên dương 𝑛. Nhập tiếp dãy gồm 𝑛 số nguyên. Hãy đếm số lượng số của dãy vừa nhập có đúng 3 chữ số.
Program HOC24;
var a: array[1..32000] of string;
d,i,n: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0;
for i:=1 to n do
if length(a[i]) = 3 then d:=d+1;
write('Co ',d,' so co 3 chu so trong day');
readln
end.
Viết chương trình nhập vào số nguyên dương 𝑛(𝑛 ≤ 1014). Một đoạn gồm các chữ số liên tiếp của 𝑛 được gọi là một đường chạy nếu đoạn này có nhiều chữ số nhất, các chữ số có thứ tự tăng dần từ trái sang phải (chữ số bên trái ≤ chữ số bên phải) và chữ số nằm trái nhất phải khác 0, một đường chạy có thể có độ dài 1. Đếm xem trên số 𝑛 tồn tại bao nhiêu đường chạy.
Yêu cầu: Viết chương trình nhập vào số nguyên dương 𝑛 (0 < 𝑛 ≤ 1018). In ra: 𝑛 + √𝑛. Cho biết hàm lấy phần nguyên căn 𝑛 là int(sqrt(n)) hoặc (long long)(sqrt(n)), bản chất ở đây là ép kiểu thực sang kiểu nguyên và cắt đi phần lẻ.
Dữ liệu: Một dòng ghi số nguyên 𝑛 (0 < 𝑛 ≤ 1018).
Kết quả: Đưa ra kết quả 𝑛 + √𝑛.
Ví dụ:
input | output |
10 | 13 |
#include <bits/stdc++.h>
using namespace std;
int main() {
long long n;
cin >> n;
int can = (long long)(sqrt(n));
cout << n + can;
return 0;
}
Viết chương trình nhập số nguyên dương 𝑛 (𝑛 ≤ 1000) và dãy số nguyên 𝑎1 , 𝑎2 , … , 𝑎𝑛−1 , 𝑎𝑛 (|𝑎𝑖 | ≤ 106 ). Hãy in cặp số liên tiếp đầu tiên cùng dấu nhau (hai số cùng là số âm hoặc cùng là số dương). Dữ liệu nhập vào luôn đảm bảo có kết quả
c++ nha
#include <bits/stdc++.h>
using namespace std;
int main () { int a[1000],n,i;
cin >> n;
for (int i=1;i<=n;i++)
cin >> a[i];
for (int i=2;i<=n;i++)
if (((a[i]<0) and (a[i-1]<0)) or ((a[i]>0) and (a[i-1]>0))) {
cout << a[i-1] <<" " << a[i];
break; }
return 0;
}
Viết chương trình pascal để nhập 1 mảng gồm n số nguyên dương a1...an.sau đó in ra màn hình giá trị lớn nhất của dãy số
uses crt;
var a:array[1..100]of integer;
i,n,max: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];
writeln(max);
readln;
end.
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Program HOC24;
var i,n,max: integer;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
i:=1; max:=-1;
while i<=n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
i:=i+1;
end;
write('So lon nhat la: ',max);
readln
end.
1. Viết chương trình nhập vào một số nguyên dương n. Hãy in ra số nguyên tố nhỏ nhất lớn hơn n. 2. Viết chương trình nhập vào một xâu. In ra màn hình số lớn nhất trong xâu đó.
câu 1
Program Nguyen_to;
Var n,i:integer;
Function NT(n:integer):Boolean;
Var ok: Boolean;
i: integer;
Begin ok:=true;
for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;
if n < 2 then NT:=false else NT:=ok;
End;
Begin Write('Nhap n: ');
Readln(n); i:=n;
Repeat i:=i+1;
Until NT(i);
Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);
Readln End.
câu 2
uses crt;
const so: set of char=['0','1','2','3','4','5','6','7','8','9'];
var a:array[1..100] of integer;
st,b:string;
c,l,i,n,j:integer;
s, Max: integer;
begin clrscr;
write('Nhap xau:');
readln(st);
l:=length(st);
i:=1;
n:=0;
repeat if (st[i] in so) then begin b:=''
repeat b:=b+st[i];
inc(i);
until (not(st[i] in so)) or (i>l);
inc(n);
val(b,a[n],c);
end;
inc(i);
until i>l;
Max:=a[1];
for i:=2 to n do If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
readln;
end.
Viết chương trình Pascal nhập vào 1 dãy số nguyên và in ra màn hình khi tổng của chúng < 20. Dùng câu lệnh while…do…
program tong_so;
var
tong, so: integer;
begin
tong := 0;
while tong < 20 do
begin
write('Nhập số nguyên: ');
readln(so);
tong := tong + so;
end;
writeln('Tổng các số đã nhập là: ', tong);
end.
Viết chương trình pascal để nhập vào một mẳng gồm n số nguyên dương a1...an, sau đó in ra màn hình giá trị nhỏ nhất
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.