in ra các số lẻ chia hết cho 3trong khoảng từ m đến n với m,n nhập từ bàn phím
ND
Những câu hỏi liên quan
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N10). Tính và in ra màn hình các yêu cầu sau:a. Tính tổng các số vừa nhậpb. tính tích các số vừa nhập c. tính tb các số vừa nhập d. hãy tìm số lớn nhất và số bé nhất e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhậpf. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãygi...
Đọc tiếp
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N>10). Tính và in ra màn hình các yêu cầu sau:
a. Tính tổng các số vừa nhập
b. tính tích các số vừa nhập
c. tính tb các số vừa nhập
d. hãy tìm số lớn nhất và số bé nhất
e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhập
f. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãy
giúp mik vs nha :(((
viết chương trình nhập dãy số gồm N số nguyên nhập từ bàn phím.Thực hiện:
- In dãy số đã nhập ra màng hình.
- In dãy số đó theo chiều ngược lại.
-Xuất phần tử thứ j ra màng hình. với j nhập từ bàn phím (j<=N)
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[10000];
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
}
Đúng 0
Bình luận (1)
viết chương trình tính tổng x, y với x, y được nhập từ bàn phím.
viết chương trình tính trung bình 3 số x, y, z được nhập từ bàn phím
Bài 1 :
Uses crt;
Var x,y:integer;
Begin
clrscr;
Readln(x,y);
Write('Tong cua x,y la ',x+y);
Readln
End.
Bài 2 :
Uses CRT;
var x,y,z:integer; tbc:real;
begin
clrscr;
readln(x,y,z);
tbc:=(a+b+c)/3;
Write('Trung binh cong x,y,z la ',tbc:4:2);
Readln
End.
Đúng 0
Bình luận (2)
pascal viết chương trình tính tổng sau
S=1/4+2/9+3/16+4/25+5/36-6/49+.....
tổng này có M số hạng , với N là số nguyên dương nhỏ hơn 1000 ,N nhập từ bàn phím
Bạn kiểm tra lại đề nha; M, N có liên quan gì đến tổng S bạn nhỉ?
Đúng 0
Bình luận (0)
Câu 1 : Viết chương trình kiểm tra xem N được nhập từ bàn phím có phải là số nguyên tố hay ko ?
Câu 2 : Viết chương trình nhập vào một mảng các số nguyên . Ghi ra màn hình . Tìm giá trị max , min của mảng đó
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình để tính chu vi và diện tích của hình vuông với cạnh a là số nguyên được nhập từ bàn phím.
THAM KHẢO:
uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('a='); readln(a);
cv:=a*4;
dt:=sqr(a);
if a>0 then
begin
writeln('chu vi hinh vuong la: ',cv);
writeln('dien tich hinh vuong la: ',dt);
end
else writeln('vui long nhap so a lon hon 0');
readln;
end.
Đúng 0
Bình luận (0)
số các số tự nhiên chia hết cho cả 3 và 4 trong khoảng từ 100 đến 200 là ?
Chia hết cho 3 và 4 => chia hết cho BCNN(3; 4) = 12
=> Tìm các số chia hết cho 12 trong khoảng 100 dến 200 là ra
Đúng 0
Bình luận (0)
Ta có (3; 4) = 1. Do đó các chia hết cho cả 3 và 4 thì chia hết cho [3; 4]
Mà [3; 4] = 12 => các số đo thuộc bội của 12 từ 100 đến 200
Số lớn nhất chia hết cho 12 mà từ 100 đến 200 là 192 ; bé nhất là 108
số các số tự nhiên chia hết cho cả 3 và 4 trong khoảng từ 100 đến 200 là :
(192 - 108) : 12 + 1 = 8 (số)
Đúng 0
Bình luận (0)
chtt
các bạn cho mình vài li-ke cho tròn 515 với
Đúng 0
Bình luận (0)
1) Viết chương trình nhập vào giá trị K từ bàn phím xuất ra màn hình các giá trị từ 1 đến K 2) Viết chương trình nhập vào một mảng gồm N phần tử được nhập từ bàn phím. Tình tổng các giá trị phần tử của mảng đó Giúp mình với gần làm bài tập rồi
Câu 1:
uses crt;
var k,i:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
write(i:4);
readln;
end.
Câu 2:
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('Tong cac gia tri cua day la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào mảnh n (n được nhập từ bàn phím)