Viết chương trình nhập vào từ bàn phím một số nguyên dương N, hãy tìm tất cảcác bộ số (a, b, c) sao cho 1 ≤ a < b < c ≤ N mà tích a×b×c là bội của a+b+c?
vd n=5 bộ số 123;145; 235;345
Những câu hỏi liên quan
C1.Viết chương trình tính tổng hai số A và B với A, B là 2 số được nhập từ bàn phím C2. Viết Chương trình nhập vào ba số nguyên a, b, c. tính a+b-c. C3.Viết Chương trình tính hiệu a - b với a,b là hai số nguyên nhập từ bàn phím. C4.Chương trình nhập vào 3 số x, y, z. Tính (x+y)*z Giúp em với ạ em cảm ơn nhiều lắm ạ
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write(a+b);
readln;
end.
Câu 2:
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b-c);
readln;
end.
Đúng 1
Bình luận (0)
Câu 3:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a-b);
readln;
end.
Câu 4:
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
writeln((x+y)*z);
readln;
end.
Đúng 1
Bình luận (0)
1.Viết chương trình nhập số nguyên n. Hãy tìm chữ số lớn nhất của n.
2. Viết chương trình nhập từ bàn phím 2 số nguyên a và b. Tìm BCNN của a và b
program tim_chu_so;
uses crt;
var i,n,csln:longint;
k:integer;
a:array[1..1000]of longint;
st:string;
begin
clrscr;
write('nhap so n:');readln(n);
str(n,st);
val(st,a[i]);
csln:=a[1];
for i:=1 to length(st) do
if csln<a[i] then csln:=a[i];
writeln('chu so lon nhat cua so ',n,' la:',csln);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var n,i,d,x,y,max:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if max<x then max:=x;
end;
writeln('Chu so lon nhat la: ',max);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a,b,i,bcnn:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn<i then bcnn:=i;
end;
writeln('Boi chung nho nhat la: ',bcnn);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
Đúng 0
Bình luận (0)
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: ');
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do write(a[i],' '); writeln;
d:=0;
for i:=1 to n do if a[i]>0 then d:=d+1;
write('Co ',d,' so duong');
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình kiểm tra 3 số a,b,c có là ba cạnh của một tam giác hay ko với a,b,c là số được nhập từ bàn phím
số hợp lệ là số lớn hơn 100 bé hơn 1000.Viết chương trình nhập vào 1 số nguyên từ bàn phím và thông báo số nguyên đó có hợp lệ hay ko?
GIÚP MIK VS Ạ MIK CẦN GẤP
MIK SẮP THI RỒI GIÚP MIK VS
Uses crt;
Var a, b, c:real;
Begin
Readln(a);
Readln(b);
Readln(c);
If (a + b > c) or (a + c > b) or (b + c > a) then writeln('tam giác')
Else writeln('Khong phai tam giac');
Readln
End.
Đúng 0
Bình luận (0)
Cho a,b,c là số nguyên nhập từ bàn phím. Kiểm tra a,b,c nhập vào có phải số nguyên dương không. Viết chương trình con tính diện tích và nửa chu vi của tam giác được tạo bởi ba cạnh a,b,c. In kết quả ra màn hình Mng giúp mình với ạ
Câu 1: viết chương trình tính a*b*c với a,b,c nhập từ bàn phím *câu 2 viết chương trình tính x*x+y*y với x,y Nhậptừ bàn phím *Câu 3 viết chương tính (a div b)+ (a mod b) với a,b nhập từ bàn phím *Câu 4: Viết chương trình nhập vào 5 số a,b,c,d,e tính trung bình công của 4 số đó
Đọc tiếp
Câu 1: viết chương trình tính a*b*c với a,b,c nhập từ bàn phím *
câu 2 viết chương trình tính x*x+y*y với x,y Nhậptừ bàn phím *
Câu 3 viết chương tính (a div b)+ (a mod b) với a,b nhập từ bàn phím *
Câu 4: Viết chương trình nhập vào 5 số a,b,c,d,e tính trung bình công của 4 số đó
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<a*b*c;
return 0;
}
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình nhập vào từ bàn phím các số thực a,b,c,d. Tính và đưa ra màn hình giá trị biểu thức: 2cb3 + 5cd4 – 3a? + bcd" - Bài 2: Viết chương trình nhập vào từ bàn phím 2 số nguyên m,n (n>0). Tính và đưa ra màn hình giá trị biểu thức nm-2 ~kíuuuuu~
Bài 2:
#include <bits/stdc++.h>;
using namespace std;
int main();
{
long m,n;
cout<<"Nhap m="; cin>>m;
cout<<"Nhap n="; cin>>n;
cout<<m*n-2;
return 0;
}
Đúng 0
Bình luận (0)
Cho mảng một chiều có n phần tử số nguyên được nhập từ bàn phím Hãy viết chương trình a Tính tổng phần tử là số chẵn b. đếm số phần tử chia cho 5 dư 2 c. Tính tích các phần tử chia cho 7 dư 3
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t,dem,s;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t+=a[i];
cout<<t<<endl;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%5==2) dem++;
cout<<dem<<endl;
s=1;
for (i=1; i<=n; i++)
if (a[i]%7==3) s*=a[i];
cout<<s;
return 0;
}
Đúng 1
Bình luận (0)