1. Viết CT in ra các số lê nhỏ hơn hoặc bằng n ( với n đc nhập).Sao cho 15 số lẻ đc in trên 1 dòng.
Giúp em gấp mn ơi Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n ( với n được nhập từ bán phím) sao cho 15 số được in trên một dòng
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 2=0 then
begin
inc(dem);
write(i:4);
if dem=15 then writeln;
end;
readln;
end.
Câu 1: viết cú pháp vòng lặp và vẽ sơ đồ vòng lặp với số làn chưa biết trc và số lần viết trc ,vd minh hoạ?
Câu 2: viết ct tính tổng của n số tự nhiên đầu tiên (n đc nhập từ bàn phím)
Câu 3: viết ct in ra tổng các số chẵn nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)
Câu 4: viết ct in ra tổng các số lẻ nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)
Câu 5: viết ct nhập vào 1 dãy số 1 đến n , với n là sói nguyên đc nhạp từ bàn phím bé hơn hoặc bằng 100) và lần lượt thực hiện các coing việc sau:
A1, in ra dãy vừa nhập trên 1 hàng ngang , cách nhau 4 kí tự trống
A2, , in ra dãy vừa nhập trên 1 hàng dọc , cách nhau 4 kí tự trống
B, in ra màn hình gtri lớn nhất ,nhỏ nhất của dãy số
C, in ra tổng các phân tử của dãy?
1. Viết CT in ra số lẻ nhỏ hơn hoặc bằng n .
2.viết Ct cho phép nhập n số và cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy ?
1.
Program bai1;
uses crt;
var i,n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
i:=1;
while i<=n do
begin
write(i:3,', ');
i:=i+2;
end;
readln;
end.
2.
Program bai2;
uses crt;
var i,n,nhonhat: integer;
a: array[1..100] of real;
min: real;
begin
clrscr;
write('nhap n :='); readln(n);
for i:= 1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
min:=a[1];
nhonhat:=1;
for i:= 2 to n do
if a[i] < min then
begin
min:=a[i];
nhonhat:=i;
end;
writeln('phan tu nho nhat la phan tu thu ' ,nhonhat);
readln;
end.
{ https://www.facebook.com/profile.php?id=100022887573679 }
viết chương trình in ra tổng các số nhỏ hơn hoặc bằng n ( với n đc nhập) mai phải thi r mn giúp mk vs
Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Viết chương trình in ra màn hình gtrị tổng cá số tự nhiên lẻ bé hơn hoặc bằng Những, Với số N đc nhập từ bàn phím
program TinhTongSoTuNhienLe;
var
N, i, sum: integer;
begin
write('Nhap so N: ');
readln(N);
sum := 0;
for i := 1 to N do
begin
if i mod 2 = 1 then // Kiểm tra số lẻ
sum := sum + i; // Cộng dồn vào tổng
end;
writeln('Tong cac so tu nhien le nho hon hoac bang N la: ', sum);
readln;
end.
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện:
a. In ra các số nguyên tố bé hơn hoặc bằng n.
b. In ra số nguyên tố nhỏ nhất không bé hơn n. c
. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n.
uses crt;
var n,i,o,d:integer;
function ktnt(n:integer): integer;
var i,d:integer;
begin
d:=0;
for i:=1 to sqrt(n) do
if (n mod i=0) then d:=d+1;
if d=2 then ktnt=0
else ktnt=1;
end;
begin
readln(n);
writeln(' so nguyen to be hon hoac bang n la'); {a}
for i:=1 to n do
if ktnt(i)=0 then writeln(i);
writeln('so nguyen to nho nhat khong be hon n');
o:=n;
while o>0 do
begin
if ktnt(o)=0 then
begin
write(o);
break;
end;
o:=o+1;
end;
writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');
o:=0;
o:=1;
d:=0;
for i:=o+2 to n do
begin
if ktnt(i)=0 then
begin
d:=d+1;
write(i,' ');
if d<2 then continue;
end;
d:=0;
writeln;
end;
readln;
end.
Viết phương trình in ra các số lẻ nhỏ hơn hoặc bằng n( với n (int) được nhập từ bàn phím)
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
cin>>n;
for (int i=1; i<=n; i++)
if (i%2==1) cout<<i<<" ";
return 0;
}
1.Viết CT in tất cả các ước của 1 số n(n nhập từ bàn phím).
2.Viết CT in ra các số chẵn nhỏ hơn hoặc bằng n ( n nhập từ bàn phím).
1.
Program bai1;
uses crt;
var n,i: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
for i := 1 to n do
if n mod i = 0 then
write(i :2 , ' , ');
readln;
end.
2.
program bai2;
uses crt;
var i,n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
for i: 1 to n do
if i mod 2 = 0 then
write(i: 3 ,',');
readln;
end.
Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập).
Yêu cầu nhập lại nếu n<=0
ai trả lời giúp mình được ko cảm ơn
program Min;
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Cac so le nho hon hoac bang ',n,'la :');
for i:=1 to n do if i mod 2 = 1 then write(i:4);
readln
end.