Viết chương trình nhập vào các số nguyên dương a,b,c,d rồi tìm ƯCLN và BCNN của chúng.
Lưu ý: Nếu nhập số âm hoặc số thập phân báo nhập lại (lệnh repeat...until).
Nhờ các CTV trao 2GP cho bạn đúng và nhanh nhất
Những câu hỏi liên quan
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
Đúng 2
Bình luận (0)
Bài 1: Viết chương trình Pascal nhập n (n>0). Xuất ra màn hình:
các số nguyên tố từ 2 đến n và cho biết có bao nhiêu số nguyên tố từ 2 đến n
Lưu ý : Dùng lệnh While...do hoặc Repeat....until
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
readln(n);
i:=1;
while (i<n) do
begin
i:=i+1;
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
Đúng 2
Bình luận (1)
Viết chương trình pascal nhập n ( n>0 ) xuất ra màn hình các số hoàn toàn từ 1-2n và cho bt có bao nhiêu số như vậy
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
Đúng 1
Bình luận (0)
Scratch hay java
viết chương trình nhặp vào mảng B gồm N số nguyên hãy thực hiện lệnh in ra màn hình : a) các phần tử trông mảng B vừa nhập b) tổng các số chẵn không âm trông dãy c) in ra các số âm nếu có d) in ra tích các số dương
Viết chương trình nhập vào mảng số nguyên rồi thực hiện các công việc sau đây: A) Đếm số các phần tử có giá trị dương(âm) và tính tổng của chúng B) Tìm số dương(âm) đầu tiên và chỉ số của nó trong mảng Mong mọi người giúp ạ mai em ktra học kỳ rồi ạ
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2,sa,sd,vt1,vt2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem1:=0;
t1:=0;
dem2:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then begin inc(dem1); t1:=t1+a[i]; end;
if a[i]<0 then begin inc(dem2); t2:=t2+a[i]; end;
end;
writeln(dem1);
writeln(dem2);
writeln(t1);
writeln(t2);
for i:=1 to n do
if a[i]>0 then
begin
sd:=a[i];
vt1:=i;
break;
end;
if (dem1=0) then writeln('Khong co so duong trong day')
else writeln('So duong dau tien la: ',sd,' vi tri la: ',vt1);
for i:=1 to n do
if a[i]<0 then
begin
sa:=a[i];
vt2:=i;
break;
end;
if (dem2=0) then writeln('Khong co so am trong day')
else writeln('So am dau tien la: ',sa,' vi tri la: ',vt2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra a,b cùng dáu hay trái dấu ( cùng âm hoặc cùng dương hoặc âm, dương hoặc dương, âm)
Câu 2: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra tính chẵn lẻ ( cùng lẻ hoặc cùng chẵn hoặc.......)
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a>0) and (b>0) then writeln('Cung duong');
if (a<0) and (b<0) then writeln('Cung am');
if (a>0) and (b<0) then writeln('Duong am');
if (a<0) and (b>0) then writeln('Am duong');
readln;
end.
Câu 2:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');
if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');
if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');
if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình theo các yêu cầu sau: a/ Khai báo biến. (gợi ý: Khai báo các biến a, b, c, max cho chương trình) b/ Viết được các lệnh xuất, nhập ( Gợi ý: Nhập vào 3 giá trị a , b và c ) c/ Chương trình chạy xuất được giá trị lớn nhất( Gợi ý: In biến max ra màn hình ) *
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,ln;
int main()
{
cin>>a>>b>>c;
ln=a;
ln=max(ln,b);
ln=max(ln,c);
cout<<ln;
return 0;
}
Đúng 0
Bình luận (0)
viết chương trình nhập số nguyên dương A và B máy hỏi tổng hai số là bao nhiêu
nếu ta nhập đúng thì máy thông báo "chúc mừng bạn đã tính đúng"
nếu ta nhập sai thì máy thông báo "rất tiếc bạn đã làm sai" và hiển thị kết quả đúng ra màn hình
mọi người giúp em với ôn thi căng quá
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b>>t;
if (t==a+b) cout<<"chuc mung ban da tinh dung";
else cout<<"rat tiec ban da lam sai";
return 0;
}
Đúng 0
Bình luận (0)
Câu 13: Viết chương trình nhập vào năm sinh, hiển thị thông báo số tuổi trong năm hiện tạiCâu 14: Nhập vào 2 số nguyên dương. Hiển thị số lớn nhất (hoặc bé nhất)Câu 15: Kiểm tra số nguyên dương n có chia hết cho 3 hay không?Các bạn giúp mình với mình sắp thi học kì rồi !Cảm ơn nhiều lắm !
Đọc tiếp
Câu 13: Viết chương trình nhập vào năm sinh, hiển thị thông báo số tuổi trong năm hiện tại
Câu 14: Nhập vào 2 số nguyên dương. Hiển thị số lớn nhất (hoặc bé nhất)
Câu 15: Kiểm tra số nguyên dương n có chia hết cho 3 hay không?
Các bạn giúp mình với mình sắp thi học kì rồi !
Cảm ơn nhiều lắm !