viết chương trình pascal nhập n số nguyên (5<=n<100) hiện dãy số vừa nhập . tính tổng các số >10
Những câu hỏi liên quan
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Đúng 2
Bình luận (1)
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Đúng 2
Bình luận (1)
Viết chương trình pascal yêu cầu nhập vài 1 số nguyên N ( O
Viết chương trình pascal yêu cầu nhập vào 1 số nguyên N ( O
7 tháng 3 2023 lúc 15:43
Viết chương trình pascal cho nhập vào số nguyên dương n. Tính n! (n!=1.2.3.....n).
Uses crt;
var i,n,x: integer;
begin clrscr;
readln(n);
for i:=1 to n do x:=x*i;
writeln(x);
readln;
end.
Đúng 1
Bình luận (0)
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap n: '); readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write(n,'! = ',s);
readln
end.
Đúng 1
Bình luận (0)
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ần gấp rất gấp luôn
Đọc tiếp
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ần gấp rất gấp luôn
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
Bình luận (0)
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
Bình luận (0)
7 tháng 3 2023 lúc 15:41
Viết chương trình pascal cho nhập vào số nguyên dương n(n<32000).In ra số đảo ngược.
Program HOC24;
var n: integer;
i: byte;
begin
write('Nhap N: '); readln(n);
write('So dao nguoc la: ');
while n<>0 do
begin
write(n mod 10);
n:=n div 10;
end;
readln
end.
Đúng 2
Bình luận (0)
Viết chương trình Pascal nhập N số nguyên (n<=100)Hiện dãy số vừa nhậpĐếm các số chẵn, lẻ
Xem chi tiết
Program HOC24;
var i,n,l,c: byte;
a: array[1..100] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do write(a[i],' ');
writeln;
c:=0; l:=0;
for i:=1 to n do
if a[i] mod 2=0 then c=c+1 else l=l+1;
writeln('Day co ',c,' so chan');
writeln('Day co ',l,' so le');
readln
end.
Đúng 2
Bình luận (0)
Viết chương trình pascal nhập 1 số nguyên dương n in ra màn hình số nguyên dương chẵn từ 1 đến n
pascal nha bạn:
Program so_nguyen_chan;
uses crt;
var n,i:integer;
begin
writeln('Nhap n=');readln(n);
For i:=1 to n do
If i mod 2 = 0 then writeln('Cac so chan nho hon n la: ',i);
readln
end.
Đúng 1
Bình luận (1)
có in bao gồm cả số nữa lại nữa không hay chỉ nhỏ hơn n
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình Pascal thực hiện các yêu cầu sau:
- Nhập vào một dãy số gồm N số nguyên
- Hiển thị dãy số vừa nhập
program max_min;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:3);
readln;
end.
Đúng 1
Bình luận (0)