Câu 1:viết chương trình in ra màn hình của phép tính 2*(1/5 2^3) Câu 2:(sử dụng câu lệnh cặp for... do). Viết chương trình tính tổng của n số tự nhiên liên tiếp. Câu 3:(sử dụng câu lệnh cặp while.....

VT

Võ Trần Quế Trân

8 tháng 4 2020

Câu 1:viết chương trình in ra màn hình của phép tính 2*(1/5+2^3) Câu 2:(sử dụng câu lệnh cặp for... do). Viết chương trình tính tổng của n số tự nhiên liên tiếp. Câu 3:(sử dụng câu lệnh cặp while... do). Viết chương trình tính tổng nhỏ hơn 1000(bài tập nâng cao) Giúp em làm với ạ, em đang cần gấp, ai làm được em cảm ơn nhiều nhiều nhé...

Đọc tiếp

#Tin học lớp 8

1

NL

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

8 tháng 4 2020

Câu 1:

uses crt;

begin

clrscr;

writeln(2*(1/5+2*2*2));

readln;

end.

Câu 2: n số tự nhiên liên tiếp bắt đầu từ mấy vậy bạn?

Câu 3:

uses crt;

var i,s:longint;

begin

clrscr;

s:=0; i:=1;

while i<=1000 do

begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

Đúng(0)

VT

Võ Trần Quế Trân

9 tháng 4 2020

Cảm ơn nhiều nha bạn 🤩😍

Đúng(0)

MN

Minh Ngọc

10 tháng 3 2022

Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.

Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do

#Tin học lớp 8

1

NL

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

11 tháng 3 2022

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

Đúng(0)

MN

Minh Ngọc

10 tháng 3 2022

Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.

Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do

#Tin học lớp 8

1

NL

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

11 tháng 3 2022

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

Đúng(0)

LN

Linh Nhi

4 tháng 3 2022

Bài toán tính tổng : S=1+1/2+1/3+...+1/100

a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do

b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do

#Tin học lớp 8

1

NL

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

4 tháng 3 2022

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+1/i;

writeln(s:4:2);

readln;

end.

b:

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

Đúng(0)

N

Ngân

3 tháng 3 2022

Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh for do

Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh while do

#Tin học lớp 8

2

I

ILoveMath

3 tháng 3 2022

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s)

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

Đúng(2)

I

ILoveMath

3 tháng 3 2022

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s);

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

Đúng(1)

NT

NQ Thi

3 tháng 4 2023

Viết chương trình nhập 1 số nguyên dương n. Sau đó xuất ra màn hình tổng của n số tự nhiên đầu tiên (yêu cầu : sử dụng câu lệnh while....do)

#Tin học lớp 8

1

NH

Nguyễn Hoàng Duy

4 tháng 4 2023

program Tinh_Tong;

var n, s, i: integer;

begin
write('Nhap vao so nguyen duong n: ');
readln(n);
  s := 0;
i := 1;
  while i <= n do
begin
s := s + i;
i := i + 1;
end;
  writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
  end.

Đúng(1)

BH

Bé Heo

12 tháng 5 2021

Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1+2+3+...+20 (3 điểm)Câu 9 (1 điểm). Cho đoạn chương trình: j:= 2; For i:= 1 to 5 do j:= j + 2;Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?Giải...

Đọc tiếp

#Tin học lớp 8

2

TA

Trần Ái Linh

12 tháng 5 2021

Câu 8.

program im_14424;

uses crt;

var S: byte;

i: byte;

begin

clrscr;

S:=0;

for i:=1 to 20 do

S:=S+i;

writeln('Tong cua 20 so tu nhien dau tien la: ,S);

readln

end.
Câu 9.

j:=2 → Gán j = 2.

for i:=1 to 5 do → lặp lại 5 lần

j:=j+2 →

Lần 1: 4

Lần 2: 6

Lần 3: 10

Lần 4: 12

Lần 5: 14

Đúng(2)

TG

Trúc Giang

12 tháng 5 2021

Câu 1:

uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.

Câu 2:

i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12

Đúng(1)

LN

lio Nana

23 tháng 4 2023

Viết chương trình in ra màn hình các số từ 1 => n . Sử dụng câu lệnh while..do

#Tin học lớp 8

0

MP

Ma Phan Đức

3 tháng 2 2021

Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan...

Đọc tiếp

#Tin học lớp 8

1

NL

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

3 tháng 2 2021

Câu 1:

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Câu 2:

uses crt;

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

i,n,dem: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]>0 then inc(dem);

writeln('So luong phan tu duong la: ',dem);

readln;

end.

Câu 3:

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do

begin

writeln('Bang nhan ',i,' la: ');

for j:=1 to 10 do

writeln(i,'*',j,'=',i*j);

delay(200);

end;

readln;

end.

Đúng(1)

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)

H

huyokkkkk

28 tháng 3 2023

Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím. giupa nha các hảo hán...

Đọc tiếp

#Tin học lớp 8

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