Bạn nào giải giúp mình với ạ
Hãy viết một chương trình Pascal yêu cầu nhập z là số thực nằm trong khoảng từ 1 đến 10 ?
Những câu hỏi liên quan
Hãy viết các câu lệnh Pascal yêu cầu người dùng nhập một số thực nằm trong khoảng từ 1 đến 10 và yêu cầu nhập lại nếu số đó không thuộc khoảng này.
uses crt;
var n:real;
begin
clrscr;
repeat
readln(n);
if (n<1) or (n>10) then writeln('Hay nhap lai');
until (1<=n) and (n<=10);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình pascal tính trung bình các số chia hết cho 5 nằm trong khoảng từ 1 đến z rồi in ra màn hình với z là số tự nhiên được nhập từ bàn phím và z > 10
Program HOC24;
var z,i,d: integer;
t: real;
begin
write('Nhap z: '); readln(z);
t:=0; d:=0;
for i:=1 to z do if i mod 5=0 then begin t:=t+i; d:=d+1; end;
t:=t/d;
write('Trung binh cong cac so chia het cho 5 trong khoang 1 den ',z,' la: ',t:6:2);
readln
end.
Đúng 2
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)
CÓ BẠN NÀO GIỎI MÔN NÀY K Ạ GIÚP MIK VỚI MIK CẦN GẤP LẮM Ạ Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
Program tinh_tong;
uses crt;
var a,b:Integer;
begin
Write('Nhap gia tri a: ');
Readln(a);
Write('Nhap gia tri b: ');
Readln(b);
Writeln('Tong: ',a+b);
Readln();
end.
Đúng 0
Bình luận (0)
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một số chẵn lớn hơn 10 nhỏ hơn 70. Nếu nhập không đúng yêu cầu nhập lại? Sau đó tính tổng các số từ 1 đến số chẵn vừa nhập?
ai giúp e bài này với ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
if ((n>10) and (n<70))
{
t=0;
for (i=1; i<=n; i++)
if (i%2==0) t=t+i;
cout<<t;
}
else cout<<"Nhap lai";
return 0;
}
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 2 số nguyên a, b và xuất ra màn hình yêu cầu sau:
a. Tính tổng, tích 2 số vừa nhập.
b. Thực hiện phép chia lấy phần dư với 2 số vừa nhập.
Giúp mình viết chương trình Pascal theo yêu cầu trên với mn ơi. Thanks mn nhiều<33
Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
Đúng 0
Bình luận (0)
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Đúng 0
Bình luận (0)
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)