BÀI 1: Nhập sô nguyên N. Xuất ra màn hình của số từ 1 -> N ( hoặc N -> 1) theo chiều ngang ( hay chiều dọc). ( Có thể sử dụng vòng lập For...do hoặc While...do nếu đề không bắt buộc). BÀI 2: Nhập mậ...

LN

LÊ NGỌC DIỄM MY

28 tháng 4 2018

BÀI 1: Nhập sô nguyên N. Xuất ra màn hình của số từ 1 -> N ( hoặc N -> 1) theo chiều ngang ( hay chiều dọc). ( Có thể sử dụng vòng lập For...do hoặc While...do nếu đề không bắt buộc). BÀI 2: Nhập mật khẩu và tên đăng nhập (hay một trong hai). Nếu nhập sai thì yêu cầu nhập lại, nếu nhập đúng thì xuất ra màn hình " nhập mật khẩu thành công". GIÚP MÌNH NHA, CHIỀU NAY MÌNH KIỂM TRA...

Đọc tiếp

#Tin học lớp 8

0

82

8.10: 22 Trần Ngô Thảo My

30 tháng 3 2022

Sử dụng vòng lập For...do

+ Nhập vào sô nguyên dương N(N <15)

+ In ra màn hình các số lẻ từ 2 -> N

+ Tính tổng các số chẵn vừa in ra

#Tin học lớp 8

1

NL

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

30 tháng 3 2022

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

for i:=2 to n do

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

writeln;

t:=0;

for i:=1 to n do

if i mod 2=0 then t:=t+i;

writeln(t);

readln;

end.

Đúng(2)

N

neon

7 tháng 3 2023

Xoá sạch màn hình kết quả, sử dụng vòng lặp For .. do hoặc While ..do viết chương trình tính tổng sau:

S=1.2 + 2.3+ 3.4 + ...+ n.(n+1) (n nhập từ bàn phím)

#Tin học lớp 8

2

ML

Minh Lệ

7 tháng 3 2023

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

i:=0; s:=0;

while i<n do

begin

i:=i+1;

s:=s+i*(i+1);

end;

write('S=',S);

readln

end.

Đúng(1)

ML

Minh Lệ

7 tháng 3 2023

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to n do s:=s+i*(i+1);

write('S=',S);

readln

end.

Đúng(3)

NT

Nguyễn Thanh Anh

16 tháng 2 2023

Bài 1: Viết chương trình Pascal nhập n (n>0). Xuất ra màn hình:các số nguyên tố từ 2 đến n và cho biết có bao nhiêu số nguyên tố từ 2 đến n Lưu ý : Dùng lệnh While...do hoặc...

Đọc tiếp

#Tin học lớp 8

2

NL

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

17 tháng 2 2023

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

readln(n);

i:=1;

while (i<n) do

begin

i:=i+1;

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.

Đúng(2)

N

Nguyenquochuy

24 tháng 2 2023

Làm mỗi "số nguyên tố từ 2->n" được ko

Đúng(0)

KH

Khánh Hoàng

6 tháng 3 2023

viết chương trình sử dụng câu lệnh lặp while...do hoặc for to do để tính tổng s=2+4+6...+n,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình

#Tin học lớp 8

2

ML

Minh Lệ

7 tháng 3 2023

Program HOC24;

var i,n: integer;

S: longint;

begin

write('Nhap N: '); readln(n);

i:=2; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

Đúng(1)

NH

Nguyễn Hoàng Duy

19 tháng 3 2023

program TongCacSoChan;
var
n, s, i: integer;
begin
write('Nhap n: ');
readln(n);
s := 0;
i := 2;
while i <= n do
begin
s := s + i;
i := i + 2;
end;
writeln('Tong cac so chan la: ', s);
readln;
end.

Đúng(1)

C

Chuu

6 tháng 3 2023

GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.

Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)

N nhập từ bàn phím

#Tin học lớp 8

2

ML

Minh Lệ

6 tháng 3 2023

Program HOC24;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+1/(i*(i+1));

write('S= ',s:6:2);

readln

end.

Đúng(1)

C

Chuu

7 tháng 3 2023

Còn lệnh while...do mình làm như thế nào ạ?

Đúng(0)

LT

Lê Tâm Anh

7 tháng 5 2023

Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)

#Tin học lớp 8

1

GB

gấu béo

7 tháng 5 2023

program Le_Nho_Hon_Hoac_Bang_n;

uses crt;

var

n, i: integer;

begin

clrscr;

write('Nhap vao mot so nguyen duong n: ');

readln(n);

while n <= 0 do

begin

writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');

readln(n);

end;

clrscr;

writeln('Cac so le nho hon hoac bang ', n, ' la:');

i := 1;

while i <= n do

begin

if i mod 2 <> 0 then

writeln(i);

i := i + 1;

end;

readln;

end.

Đúng(2)

TU

Thư Uyên

26 tháng 3 2021

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...

Đọc tiếp

#Tin học lớp 8

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.

Đúng(1)

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.

Đúng(1)

TT

Thu Tuyền

8 tháng 3 2023

Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2+1/3+...+1/n. N là số nguyên nhập từ bàn phím

#Tin học lớp 8

2

PS

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

8 tháng 3 2023

program tinhtong;

var n,i : integer;

S : real;

begin

write('Nhap n: ');

readln(n);

i:=1;

S:=0;

while i<=n do

begin

S:=S+1/i;

i:=i+1;

end;

writeln('Tong S= ',S);

readln;

end.

Đúng(1)

NH

Nguyễn Hoàng Duy

24 tháng 3 2023

program tinh_tong_S;

var
n, i: integer;
S: real;

begin
write('Nhap n: ');
readln(n);

S := 0;
i := 1;

while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;

writeln('Tong S la: ', S:0:2);

readln;
end.

Đúng(0)

TH

Thanh huyền

7 tháng 3 2023

Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2²+1/3²+...+1/n². N là số nguyên nhập từ bàn phím

#Tin học lớp 8

2

ML

Minh Lệ

7 tháng 3 2023

*while..do

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:6:2);

readln

end.

Đúng(0)

ML

Minh Lệ

7 tháng 3 2023

*for..do

Program HOC24;

var i,n: integer;

s: real;

begin

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

s:=0;

for i:=1 to n do s:=s+1/sqr(i);

write('S= ',s:6:2);

readln

end.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP