viết chương trình kiểm tra số a là lẻ trên pascal
Những câu hỏi liên quan
Viết chương trình nhập vào 2 số nguyên a,b
yêu cầu
a Tính tích 2 số nguyên a,b hiển thị kết quả trên màn hình
b Kiểm tra a là số nguyên âm hay nguyên dương
Xác định input và output cho bài toán trên
Dùng ngôn ngữ pascal để viết chương trình trên
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a*b);
if (a>0) then writeln('a la so nguyen duong')
else writeln('a la so nguyen am');
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 2 số nguyên (m,n). Kiểm tra xem số nào là số lớn và số lớn gấp mấy lần số bé. in kết quả ra màn hình.(làm trên pascal)
uses crt;
var m,n:integer;
begin
clrscr;
readln(m,n);
if (m>n) cout<<"m lon hon"
else cout<<"n lon hon";
readln;
end.
Đúng 1
Bình luận (0)
cho số tự nhiên a được nhập từ bàn phím,hãy kiểm tra xem a là số chẵn hay lẻ
a)xác định bài toán
b)mô tả thuật toán
c)viết chương trình bằng ngôn ngữ lập trình pascal
nhanh nha đang gấp mai phải nộp rồi/thanks nhiều
a: Input: Số a
Output: Kiểm tra xem a là số chẵn hay lẻ
b:
Bước 1: Nhập a
Bước 2: Nếu a chia hết cho 2 thì xuất a là số chẵn
không thì a là số lẻ
Bước 3: Kết thúc
c:
uses crt;
var a:integer;
begin
clrscr;
readln(a);
if a mod 2=0 then write('a la so chan')
else write('a la so le');
readln;
end.
Đúng 0
Bình luận (0)
Câu 58: Viết chương trình Pascal nhập vào bàn phím một số nguyên n, Kiểm tra n có là số lẻ hay không, in ra thông báo. Câu 61: Viết chương trình Pascal nhập vào bàn phím một số nguyên n, Kiểm tra n có là số chẵn hay không, in ra thông báo. Giúp mik 2 câu này với ak
Câu 58:
Var n:integer;
Begin
Write('n = ');readln(n);
If n mod 2 <> 0 then write(n,' la so le')
Else write(n,' khong la so le');
Readln
End.
Đúng 0
Bình luận (0)
Câu 61:
Var n:integer;
Begin
Write('n = ');readln(n);
If n mod 2 = 0 then write(n,' la so chan')
Else write(n,' khong la so chan');
Readln
End.
Đúng 0
Bình luận (0)
7 tháng 12 2021 lúc 17:56
1. viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số lẻ chia hết cho 5 hay không2 viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số chẵn chia hết cho 5 hay khôngEm chưa học câu lệnh lặp và đây là bài kiểm tra vest ngày mai của em mong mọi người giúp đỡ em mà không dùng câu lệnh lặp được không ạ
Đọc tiếp
1. viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số lẻ chia hết cho 5 hay không
2 viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số chẵn chia hết cho 5 hay không
Em chưa học câu lệnh lặp và đây là bài kiểm tra vest ngày mai của em mong mọi người giúp đỡ em mà không dùng câu lệnh lặp được không ạ
mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.
câu 1 :
#include<iostream>
using namespace std;
int main() {
long long a;
cout << "giá trị của a: "; cin >> a;
if (a % 2 != 0 && a % 5 == 0) {
cout << "a là một số lẻ chia hết cho 5"
} else {
cout << "a không phải là một số lẻ chia hết cho 5";
}
return 0;
}
câu 2 :
#include<iostream>
using namespace std;
int main() {
int a;
cout << "giá trị của a là: "; cin >> a;
if (a % 2 == 0 && a % 5 == 0) {
cout << "a là một số chẵn chia hết cho 5";
} else {
cout << "a không phải là một số chẵn chia hết cho 5";
}
return 0;
}
(Mình viết ở ngôn ngữ C++)
Đú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 kiểm tra số m nhập từ bàn phím là số chẵn hay lẻ
program So_chan_hay_le;
uses crt;
var m : integer;
begin
clrscr;
writeln('Nhap so m'); readln(m);
if m mod 2 = 0 then
writeln('Day la so chan')
else writeln('Day la so le');
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào một số nguyên dương và kiểm tra xem số đó là số chẳn hay số lẻ. thong báo kết quả sau khi kiểm tra
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
Đúng 0
Bình luận (1)
Viết chương trình pascal tìm các số hoàn hảo bé hơn n.
Giúp mình với ạ, sắp kiểm tra rồi :(((
Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra.
Program Tim_uoc_2;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.
Đúng 7
Bình luận (1)
uses crt;
var n,i,t,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
Đúng 2
Bình luận (0)