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)
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)
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
Program HOC24;
var i,n: byte;
t: longint;
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;
t:=0;
for i:=1 to n do
if a[i]>10 then t:=t+a[i];
writeln('Tong cac so lon hon 10 la: ',t);
readln
end.
Đúng 0
Bình luận (0)
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
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 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
1. Thực hànhBài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.• Ví dụ cho x:5; y:7.Hoán đổi để x:7; y:5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:• z:y { gán giá trị số 7 vào...
Đọc tiếp
1. Thực hành
Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.
Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.
• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:
• z:=y { gán giá trị số 7 vào biến nhớ z }
• y:=x { gán giá trị số 5 vào biến nhớ y }
• x:=z { gán giá trị số 7 vào biến nhớ x }
Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
X= a + b + c
Y= (a + b)2 / c.
Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
Đúng 0
Bình luận (0)