VCT nhập vào sô tự nhiên n n<=10^4 in ra màn hình thông báo số Phong phú nhỏ nhất lớn hơn hoặc bằng n PASCAL
ĐCM tui lạy các anh chị quản trị giải câu hỏi giải dùm em bài này bằng free pascal ạ 🆘🆘🆘🆘
Những câu hỏi liên quan
VCT nhập vào số tự nhiên n. In ra màn hình kết quả tính n!
uses crt;
var n,i:integer;
gt:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>=0;
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
Đúng 0
Bình luận (0)
VCT nhập N số tự nhiên đầu tiên in ra chẵn lẻ
program ChenLe;
varn, i, chan, le: integer;
begin
chan := 0;
le := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
for i := 1 to n do
begin
if (i mod 2 = 0) then
beginwriteln(i, ' la so chan');
chan := chan + 1;
end
else
begin
writeln(i, ' la so le');
le := le + 1;
end;
end;
writeln('Co ', chan, ' so chan va ', le, ' so le trong ', n, ' so dau tien');
readln;
end.
Đúng 0
Bình luận (0)
3/ VCT nhập vào dãy gồm n kí tự, cho biết dãy vưda nhập có bao nhiêu kí tự là a Ví dụ: Nhap n 3 Ki tu thu 1: a Ki tu thu 2: d Ki tu thu 3: a Day co 2 ki tu aBài 4: VCT nhập vào 2 số nguyên a và b. In ra màn hình các số nguyên trong đoạn từ a đến b, tính tổng tất cả các số nguyên âm trong đoạn từ a đến bVí dụ: Nhap a -2 Nhap b 5 Cac so tu-2 den 5 la: -2 -1 0 1 2 3 4 5 Tong cac so nguyen am tu -2 den 5 la: -3
Đọc tiếp
3/ VCT nhập vào dãy gồm n kí tự, cho biết dãy vưda nhập có bao nhiêu kí tự là 'a'
Ví dụ: Nhap n = 3 Ki tu thu 1: a Ki tu thu 2: d Ki tu thu 3: a Day co 2 ki tu 'a'
Bài 4: VCT nhập vào 2 số nguyên a và b. In ra màn hình các số nguyên trong đoạn từ a đến b, tính tổng tất cả các số nguyên âm trong đoạn từ a đến b
Ví dụ: Nhap a = -2 Nhap b = 5 Cac so tu-2 den 5 la: -2 -1 0 1 2 3 4 5 Tong cac so nguyen am tu -2 den 5 la: -3
Câu 3:
#include <bits/stdc++.h>
using namespace std;
string a[1000];
int n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>a[i];
if (a[i]=='a') dem++;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
vct nhập vào 1 số n. In ra màn hình thông báo n là số chắn hoặc n là số lẻ
Program HOC24;
var i,n: integer;
begin
write('Nhap N: '); readln(n);
if n mod 2=0 then write(n,' la so le') else write(n,' la so chan');
readln
end.
Đúng 2
Bình luận (0)
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2=0 then write(n,' la so chan')
else write(n,' la so le');
readln;
end.
Đúng 1
Bình luận (0)
1. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác vuông không?
2. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác đều không?
3. VCT nhập vào 1 số nguyên bất kì, kiểm tra xem số đó có chia hết cho 4 và 5 hay không?
4. VCT nhập vào 2 số nguyên bất kì, kiểm tra xem 2 số đó có chia hết cho nhau hay ko?
5. VCt nhập vào 4 số nguyên bất kì, in ra màn hình số lớn nhất trong 4 số?
6. VCt nhập vào 2 số nguyên khác nhau t...
Đọc tiếp
1. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác vuông không?
2. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác đều không?
3. VCT nhập vào 1 số nguyên bất kì, kiểm tra xem số đó có chia hết cho 4 và 5 hay không?
4. VCT nhập vào 2 số nguyên bất kì, kiểm tra xem 2 số đó có chia hết cho nhau hay ko?
5. VCt nhập vào 4 số nguyên bất kì, in ra màn hình số lớn nhất trong 4 số?
6. VCt nhập vào 2 số nguyên khác nhau từ bàn phím, sắp xếp 2 số đó theo thứ tự giảm dần
7. VCT nhập vào 2 số nguyên khác nhau từ bàn phím, sắp xếp 2 số đó theo thứ tự tăng dần
8. VCT nhập vào 1 số nguyên bất kỳ, kiểm tra và thông báo ra màn hình số đó là số chẵn hay không?
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy b số nguyên từ bàn phím. Sau in kết dãy số và kết quả r màn hình
Bài 2: VCT tính tổng các phần tử chia hết cho 5 của dãy n sô nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình
(Giúp mik vs ạ)
Vct nhập vào mảng n số.xuất ra các số ng tố.nếu ko có gì in ra màn hình
Xem chi tiết
uses crt;
var a,b:array[1..100]of integer;
i,n,kt,dem,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
if dem=0 then writeln('Khong co so nguyen to trong day')
else begin
writeln('Cac so nguyen to trong day la: ');
for i:=1 to dem do
write(b[i]:4);
end;
readln;
end.
Đúng 2
Bình luận (0)
Bài 9: vct nhập vào N số nguyên. Tính và in ra màn hình tổng căn bậc hai của các số nguyên dương trong dãy vừa nhập
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t=t+x;
}
cout<<sqrt(t);
return 0;
}
Đúng 0
Bình luận (0)
VCT nhập vào một mảng n phần tử tính trung bình cộng các phần tử có trong mảng
Program tinhtb;
Uses crt;
Var N, Dem: integer;
X, TB: real;
Begin
Clrscr;
Dem:=0;
TB:=0;
Writeln('Nhap cac so can tinh N = ');
Readln(n);
While Dem<0 do
Begin
dem:=Dem+1;
Writeln('Nhap so Thu ',Dem,'=');
Readln(X);
tb:= TB+x;
end;
TB:= TB/n;
Writeln ('TB cua ',N,' so la = ', TB:10:3);
Readln,
End.