Câu 18: Viết chương trình in ra 10 chữ “o” trên màn hình (0.5đ)Câu 19: Viết chương trình in ra màn hình thứ tự lần lặp (0.5đ)Câu 20: 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ố...

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

0

MP

Ma Phan Đức

3 tháng 2 2021

Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...doCâu 2:Viết chương trình in ra màn hình 100 lần tên emCâu 3:Viết chương trình tính tổng N số tự nhiên đầu tiênCâu 4:Viết chương trình tính tính T=1+1/2+...+1/nCâu 5:Vòng lặp sau cho biết kết quả S=? S:=0;For i:=1 to 5 do S :=S+2Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:=5 to 10...

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)

NV

Nguyễn Võ Phương Uyên

24 tháng 3 2022

câu 1 Viết - chạy - sửa lỗi ( nếu có ) chương trình in ra trên màn hình dòng chữ " lớp 8A chào bạn ! " câu 2 Viết chương trình ghi và in ra màn hình kết quả tổng 2 số tự nhận a, b nhập vào từ bàn phím câu 3 Viết chương trình tính s và chu vi hình chữ nhật biết 2 cạnh nhập từ bàn phím . Lưu tệp với tên HCN ....

0

N

ngocanh

1 tháng 12 2021

3

N

ngocanh

1 tháng 12 2021

giúp em với

TM

Trần Minh Tâm

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

B

Biibii

18 tháng 1 2022

Viết chương trình pascal sử dụng cấu trúc lặp để in ra màn hình tổng của 10 số tự nhiên đầu tiên

2

MH

Minh Hồng

18 tháng 1 2022

Tham khảo

Var s,i:integer;
begin
S:= 0;
For i:= 1 to 10 do s:=s+1;
Writeln (‘tong cua 10 so tu nhien dau tien la:’,s);
Readln
End.

Đúng(1)

KV

Kiều Vũ Linh

19 tháng 1 2022

Sai rồi em!

1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3...

PT

Phan Thị Ka

19 tháng 3 2023

4

ML

Minh Lệ

19 tháng 3 2023

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

ML

Minh Lệ

19 tháng 3 2023

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

Câu 1: Viết chương trình nhập 10 số nguyên N và tính tổng các số đóCâu 2: Viết chương trình nhập 10 số nguyên N và in ra màn hình số lượng các số chẳn đã nhập đượcCâu 3: Viết chương trình nhập 2 số M, N (M nhỏ hơn N) in ra màn hình các số lẻ có trong khoảng từ M đến NCác bạn ai đó giúp mình làm những bài này nhé. Cảm...

LD

Lê Đăng Khôi

20 tháng 2 2023

2

NL

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

21 tháng 2 2023

1:

uses crt;

var t,x,i,n:integer;

begin

clrscr;

t:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

t:=t+x;

end;

write(t);

readln;

end.

2:

uses crt;

var dem,x,i,n:integer;

begin

clrscr;

dem:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

write(dem);

readln;

end.

Đúng(3)

LC

Lê Chiêu Nguyên Vũ

4 tháng 4 2023

3

program Cacsole;
uses crt;
var M, N, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
for i := M to N do

if i mod 2 = 1 then
write (i,' ');
readln;
end.

Đúng(1)

DT

Đỗ Trọng TÍn

28 tháng 4 2023

giúp mình vài câu với nha mọi người cảm ơn nhiều
câu 3:viết chương trình nhập vào số tự nhiên N và xuất ra màn hình các ước số tự nhiên của N
câu 4:viết chương trình nhập vào số tự nhiên N và xuất ra màn hình các số lẻ tự nhiên nhỏ hơn N

2

KV

Kiều Vũ Linh

29 tháng 4 2023

Câu 3:

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac uoc cua n la ');

For i:=1 to n do

If n mod i = 0 then write(i:8);

Readln

End.

Đúng(2)

KV

Kiều Vũ Linh

29 tháng 4 2023

Câu 4

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac so le nho hon n la ');

For i:=1 to n - 1 do

If i mod 2 <> 0 then write(i:8);

Readln

End.

Đúng(2)

PH

P-H-P

3 tháng 3 2023

Viết chương trình in ra màn hình sử dụng vòng lặp while để in ra màn hình tổng các số có giá trị lớn hơn 2.000 với n là số tự nhiên lớn hơn 2

1

PS

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

3 tháng 3 2023

n = int(input('Nhập số n lớn hơn 2: '))

tong = 0

i = 2

while i <= n:

tong += i

i += 1

print('Tổng các số từ 2 đến', n, 'là:', tong)

Viết chương trình in ra màn hình tổng các số chẵn từ 1 đến n sử dụng câu lệnh lặp với số lần chưa biết trước

HH

Huỳnh Hoài Nguyên

21 tháng 3 2021