Viết chương trình in ra các ước của một số n nhập từ bàn phím trong đó sử dụng while...do.

K

Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Chọn lớp

Chọn môn

Mua vip

OK

Oanh Kim

24 tháng 2 2020

Viết chương trình in ra các ước của một số n nhập từ bàn phím trong đó sử dụng while...do.

#Tin học lớp 8

1

LT

Luân Trần

24 tháng 2 2020

https://i.imgur.com/LaCCYWd.png

Các câu hỏi dưới đây có thể giống với câu hỏi trên

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.

DM

dark mage

24 tháng 3 2021

Viết chương trình tìm số ước của một số n nhập từ bàn phím.

trong đó sử dụng while...do(ngôn ngữ dev-c++)

#Tin học lớp 8

1

DM

dark mage

24 tháng 3 2021

anh em giúp với

PV

PC Vũ

10 tháng 5 2021

viết chương trình pascal sử dụng biến mảng để nhập n số nguyên từ bàn phím in ra màn hình tổng các số đó ( N cũng được nhập từ bàn phím )

#Tin học lớp 8

3

B

Buddy

10 tháng 5 2021

uses crt;

var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}

A:array[1..1000] of longint;

begin

clrscr;

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': ');

readln(A[i]);

end;

Write('Cac so nguyen to co trong mang la: ');

for i:=1 to n do

begin

dem:=0;

for j:=2 to A[i]/2 do

if A[i] mod j=0 then dem:=dem+1;

if dem=0 then write(A[i],'; ');

end;

end.

NL

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

11 tháng 5 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln(t);

readln;

end.

TM

thanh mai

11 tháng 4 2023

Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình cách 1: sử dụng lệnh for docách 2: sử dụng lệnh while...

#Tin học lớp 8

1

H9

HT.Phong (9A5)

CTVHS

11 tháng 4 2023

Cách 1 dùng lệnh for do:

Uses crt;

var i,n,k: integer;

begin clrcsr;

readln(n);

for i:=1 to n do begin

if(i mod 2=0) and (i>=10) then k:=k*i;

end;

writeln(k);

readln;

end.

Cách 2 dùng lệnh while do

Uses crt;

var m,n,o: integer;

begin clrcsr;

readln(n);

o:=1;

m:=1;

while (m<n) do begin

m:=m+1;

if(m mod 2=0) and (m>=10) then o:=o*m;

end;

writeln(o);

readln;

end.

TM

Thảo My Lê Phương

28 tháng 3 2022

Sử dụng câu lệnh While .. do để viết chương trình tính tổng: S = 1+2+3+…+n . Trong đó n là số nguyên nhập từ bàn phím.

#Tin học lớp 8

1

KV

Kiều Vũ Linh

29 tháng 3 2022

var i,n,s:integer;

begin

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

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+1;

end;

write('Tong la ',s);

readln;

end.

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

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

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.

ND

Nhật Duy Lê Võ

8 tháng 3 2023

Viết chương trình tính tổng n số, với n được nhập từ bàn phím ( sử dụng while..do)?

#Tin học lớp 8

1

K

khang

8 tháng 3 2023

program a1;

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0; i:=1;

while i<=n do

begin

s:=s+1;

i:=i+1;

end;

write('tong cua day n:',s);

readln;

end.

ST

Sóc Trăng Chi nhánh

14 tháng 5 2021

Viết chương trình sử dụng lệnh lặp while...do để tính điểm trung bình của N số nhập từ bàn phím?

#Tin học lớp 8

1

NL

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

15 tháng 5 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

i:=1;

while i<=n do
begin

t:=t+a[i];

inc(i);

end;

writeln(t/n:4:2);

readln;

end.

HT

Huyền Trần

8 tháng 5 2021

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình hiệu các số chẵn trong dãy số nguyên.

#Tin học lớp 8

1

NL

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

8 tháng 5 2021

uses crt;

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

i,n,h:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

h:=0;

for i:=1 to n do

if a[i] mod 2=0 then h:=h-a[i];

writeln(h);

readln;

end.

YD

Yeu DUong nhat

17 tháng 5 2021

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<=100)? Tính tổng và đếm các số dương có trong dãy số? In kết quả ra màn hình

#Tin học lớp 8

2

ML

Minh Lệ

17 tháng 5 2021

Program HOC24;

var n,d,i: integer;

B: array[1..100] of integer;

t: longint;

begin

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

for i:=1 to n do

begin

write('B[',i,']='); readln(b[i]);

end;

d:=0; t:=0;

for i:=1 to n do

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var b:array[1..100] of longint;
n,i,d,s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(b[i]);
if b[i]>0 then begin
inc(d);
inc(s,b[i]);
end;
end;
writeln('Tong cac so duong: ',s);
writeln('Co ',d,' so duong');
readln;
end.