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 ạ 🆘🆘🆘🆘
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
3 tháng 1 2021
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.
14 tháng 3 2023
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.
4 tháng 12 2021
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;
}
TN
2
ML
5 tháng 7 2021
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.
5 tháng 7 2021
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.
TN
1
23 tháng 1 2021
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.
19 tháng 12 2021
#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;
}
DH
1
19 tháng 6 2020
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.