Viết chương trình pascal nhập vào số nguyên n. Xuất kết quả ra màn hình ?a) Các số nguyên liên tiếp từ 1 đến n ea màn hình?b) Xuất các số nguyên tố có trong đoạn từ 1 đến n ra màn hình ?Vd:Nhap n=6 Ca...

1

NL

Nguyễn Lê Phước Thịnh

28 tháng 2 2023

uses crt;

var a:array[1..100]of integer;

i,n,dem,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do write(i:4);

writeln;

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

T

thik

3 tháng 4 2023

viết chương trình nhập vào số nguyên N.xuất ra màn hình các số chẵn từ 1 đến N xuất ra màn hình các số lẽ từ 1 đến n

2

PS

Phía sau một cô gái

3 tháng 4 2023

program Chan_Le;

var

n, i: integer;

begin

write('Nhap vao so nguyen N: ');

readln(n);

writeln('Cac so chan tu 1 den ', n, ' la:');

for i := 2 to n do

begin

if i mod 2 = 0 then

begin

write(i, ' ');

end;

writeln;

writeln('Cac so le tu 1 den ', n, ' la:');

for i := 1 to n do

begin

if i mod 2 <> 0 then

begin

write(i, ' ');

end;

readln;

end.

Đúng(2)

NH

Nguyễn Hoàng Duy

4 tháng 4 2023

program Chan_Le;

var n, i: integer;

begin
write('Nhap vao so nguyen n: ');
readln(n);
  writeln('Cac so chan tu 1 den ',n, ' la: ');
for i := 1 to n do
begin
if i mod 2 = 0 then
write(i, ' ');
end;
  writeln;
writeln('Cac so le tu 1 den ', n, ' la: ');
for i := 1 to n do
begin
if i mod 2 <> 0 then
write(i, ' ');
end;
  readln;
  end.

Câu 1: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số từ 1 đến n.Câu 2: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số chẵn từ 1 đến n.Câu 3: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số lẻ từ 1 đến...

SF

Selena Flynn

8 tháng 3 2022

1

NL

Nguyễn Lê Phước Thịnh

8 tháng 3 2022

c1:

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) s=s*i;

cout<<s;

return 0;

}

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s=s*i;

cout<<s;

return 0;

}

Viết chương trình Pascal nhập số tự nhiên n từ bàn phím. Xuất ra màn hình: Các số nguyên tố từ 2 đến npascal nha...

C

crazy

20 tháng 1

1

D

datcoder

Giáo viên

20 tháng 1

Program HOC24;

var i,d,j,n integer;

begin

readln(n);

for i:=2 to n do

begin

d:=0;

for j:=1 to i do

if i mod j =0 then d=d+1;

if d=2 then write(i,' ');

end;

readln

end.

PT

Pham Thuan

20 tháng 4 2023

Viết chương trình nhập vào số nguyên n. Xuất ra màn hình các số chẳn từ 1 đến m ra màn hình nằm chung 1 dòng cách nhau một khoảng trắng.

1

PS

Phía sau một cô gái

20 tháng 4 2023

program SoChanDenN;

var

n, i: Integer;

begin

Write('Nhap n: ');

Readln(n);

Write('Cac so chan tu 1 den ', n, ' la: ');

for i := 1 to n do

begin

if i mod 2 = 0 then

Write(i, ' ');

end;

end.

a)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số chẵn thì in ra màn hình các số chẵn từ 0 đến Nb)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số lẻ thì in ra màn hình các số lẻ từ 1 đến N

HD

huỳnh duy cát

20 tháng 3 2021

2

NL

Nguyễn Lê Phước Thịnh

20 tháng 3 2021

a)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n<100;

if n mod 2=0 then

begin

for i:=0 to n do

if i mod 2=0 then write(i:4);

end

else writeln(n,' khong la so chan');

readln;

end.

NL

Nguyễn Lê Phước Thịnh

20 tháng 3 2021

b)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n<100;

if n mod 2=1 then

begin

for i:=1 to n do

if i mod 2=1 then write(i:4);

end

else writeln(n,' khong la so le');

readln;

end.

Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:+ Tính n!+ Nhập số x từ bàn phím.Tính nxBài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình + Dòng 1: Các ước của n+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n+ Dòng 4: Tổng các ước của n( 2 bài khác nhau mọi người làm riêng ra...

NT

Nguyễn Thanh Anh

14 tháng 12 2022

VCT pascal nhập số n từ bàn phím xuất ra màn hình:+dòng 1:các ước của n+dòng 2:nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 1 đến n+dòng 3: nếu n là số chẵn thì xuất ra màn hình các số hoàn hảo+dòng 4:tổng các ước của n(Bài thì cuối kỳ của mình nên cần rất gấp mong nhận được câu trả lời...

0

KA

Kỳ AnH

14 tháng 12 2022

Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang...

0

TU

Thư Uyên

26 tháng 3 2021

3

NL

Nguyễn Lê Phước Thịnh

26 tháng 3 2021

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

NL

Nguyễn Lê Phước Thịnh

26 tháng 3 2021

Bài 2:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

NM

Nguyễn Minh Thiên

2 tháng 4 2023

viết chương trình nhập vào số nguyên n,xuất ra dãy số từ 1 đến n;Tính tổng dãy số và xuất ra màn hình.

2

NH

Nguyễn Hoàng Duy

2 tháng 4 2023

program TinhTongDaySo;

var n, i, s: Integer;

begin
// Yêu cầu người dùng nhập vào số nguyên n từ bàn phím
write('Nhap vao n: ');
readln(n);

// In ra thông tin dãy số từ 1 đến n
writeln('Day so tu 1 den ', n, ':');

// Khởi tạo biến s để tính tổng dãy số
s := 0;

// Dùng vòng lặp for để in ra dãy số từ 1 đến n và tính tổng
for i := 1 to n do
begin
write(i, ' '); // In ra dãy số từ 1 đến n
s := s + i; // Tính tổng dãy số
end;

// In ra tổng dãy số
writeln('Tong day so: ', s);

// Dừng chương trình để người dùng có thể xem kết quả
readln;
end.

Đúng(3)

乇尺尺のﾚ

2 tháng 4 2023

chỗ program phải là

program Tinh_Tong_Day_So;