viết chương trình pascal cho bài toán sau : nếu a chia hết cho 2 thì in ra màn hình ' a là số chẵn ' và ngược lại 'a là số lẻ '
help !! mai nộp rùi , đây là tin hok lớp 8 nhé
Những câu hỏi liên quan
Giả sử cần viết chương trình nhập một số tự nhiên a vàotừ bàn phím và in ra màn hình kết quả số a là số chẵn hay số lẻ. VD: Nhập a=5 thì in ra "a là số lẻ" ngược lại a =10 thì in ra a" là số chẵn". Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
#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 1
Bình luận (0)
Cho A là một số nguyên. Hãy kiểm tra A là số nguyên chẵn hay số nguyên lẻ? nếu đúng in ra A là một số chẵn ngược lại in ra A là một số lẻ
a Hãy xác định bài toán
b Mô tả thuật toán cho bài toán
c viết chương trình cho bài toán
help với đang cần gấp ạ
hứa vote 5 sao
Thuật toán:
B1: Nhập số nguyên n
B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.
B3. Kết thúc
Chương trình:
uses crt;
var n: integer;
begin
write('Nhap so N: '); readln(n);
if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');
Đúng 1
Bình luận (2)
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập chẵn hay lẻ, chẳng hạn “5 là số lẻ”, “8 là số chẵn”. Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
Đúng 0
Bình luận (0)
- Thuật toán chương trình:
Bước 1: Nhập một số tự nhiên n và một biến d;
Bước 2: Gán giá d=n mod 2;
Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;
Bước 4. Kết thúc thuật toán;
- Chương trình Pascal:
- Kết quả:
Đúng 1
Bình luận (0)
Viết chương trình nhập từ bàn phím 1 lập số nguyên n. Nếu n là số chẵn thì hiện ra màn hình "đây là số chẵn" ngược lại thì hiện ra màn hình "đây là số lẻ"
program Chanle;
uses crt;
var x: integer;
begin
clrscr;
readln(x)
if (x mod 2 = 0) then write('day la so chan') else write('day la so le');
readln
end.
Đúng 1
Bình luận (0)
viết chương trình pascal cho bài toán sau :
nếu a chia hết cho 2 thì in ra màn hình ' a là số chẵn ' và ngược lại ' a là số lẻ '
help!!mai KT rùi !
var a:byte;
begin
write('a=');readln(a);
if a mod 2=0 then write('a la chan') else write('a la le');
readln;
end.
Đúng 0
Bình luận (0)
giả sử viết chương trình nhập một số tự nhiên từ bàn phím và in ra màn hình kết quả số đã nhập là số chẵn hay lẻ , chẳng hạn 5 là số lẻ ,8 là số chẵn a) hãy mô tả các bước của thuật toán để giải quyết bài toán trên b) viết chương trình bằng ngôn ngữ lập trình pascal dựa trên thuật toán đã mô tả c) khởi động phần mền free pascal , soạn thảo, lưu, dịch, chạy chương trình dẫ viết ở câu 2 bằng bộ dữ liệu cụ thể
Đọc tiếp
giả sử viết chương trình nhập một số tự nhiên từ bàn phím và in ra màn hình kết quả số đã nhập là số chẵn hay lẻ , chẳng hạn "5 là số lẻ ","8 là số chẵn" a) hãy mô tả các bước của thuật toán để giải quyết bài toán trên b) viết chương trình bằng ngôn ngữ lập trình pascal dựa trên thuật toán đã mô tả c) khởi động phần mền free pascal , soạn thảo, lưu, dịch, chạy chương trình dẫ viết ở câu 2 bằng bộ dữ liệu cụ thể
a)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số chẵn thì in ra màn hình các số chẵn từ 0 đến Nb)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số lẻ thì in ra màn hình các số lẻ từ 1 đến N
Xem chi tiết
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
Đúng 0
Bình luận (0)
1 , xác định bài toán và viết giải thuật toán cho bài toán sau : tính diện tích hình A ( biết hình A được ghép từ một hình chữ nhật có chiều roongh : 20 , chiều dài : b , và một hình bán nguyệt có bán kính là a ) 2, cho 2 số thực a và b . cho biết kết quả so sánh hai số đó dưới dạng a lớn hơn b hoặc a nhỏ hơn b , hoặc a b xác định bài toán và viết thuật toán cho bài toán trên đây là tin hok lớp 8 , giúp nhé , mai hok rùi , cần gấp lắm !!!!!
Đọc tiếp
1 , xác định bài toán và viết giải thuật toán cho bài toán sau :
tính diện tích hình A ( biết hình A được ghép từ một hình chữ nhật có chiều roongh : 20 , chiều dài : b , và một hình bán nguyệt có bán kính là a )
2, cho 2 số thực a và b . cho biết kết quả so sánh hai số đó dưới dạng a lớn hơn b hoặc a nhỏ hơn b , hoặc a= b
xác định bài toán và viết thuật toán cho bài toán trên
đây là tin hok lớp 8 , giúp nhé , mai hok rùi , cần gấp lắm !!!!!
Viết chương trình trong Tubo Pascal của các thuật toán sau- Đọc và số nguyên a, kiểm tra xem a là số chẵn hay số lẻ- Giảm giá 30% cho khách hàng mua với số tiền T100000 và cách 10% cho khách hàng mua với số tiền t100000- nếu x5 thì in giá trị của X ra ngoài màn hình- Giảm giá 30% cho khách hàng mua với số tiền T100000- Nếu Delta 0 thì in ra màn hình phương trình vô nghiệm
Đọc tiếp
Viết chương trình trong Tubo Pascal của các thuật toán sau
- Đọc và số nguyên a, kiểm tra xem a là số chẵn hay số lẻ
- Giảm giá 30% cho khách hàng mua với số tiền T>=100000 và cách 10% cho khách hàng mua với số tiền t<100000
- nếu x>5 thì in giá trị của X ra ngoài màn hình
- Giảm giá 30% cho khách hàng mua với số tiền T>=100000
- Nếu Delta < 0 thì in ra màn hình phương trình vô nghiệm
program CT_dautien;
uses crt;
var a:integer;
begin
clrscr;
writeln('moi nhap so a');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)
sử dụng cấu trúc IF <điều kiện> THEN <câu lệnh>
Đúng 0
Bình luận (0)