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é
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
18 tháng 12 2021
#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;
}
LT
29 tháng 12 2021
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');
18 tháng 12 2021
#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;
}
PL
20 tháng 12 2021
- 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ả:
25 tháng 11 2018
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.
20 tháng 3 2021
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.
20 tháng 3 2021
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.
DQ
4 tháng 12 2016
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.
program chanle;
uses crt;
var a:integer;
begin
write('nhap so a: ');readln(a)
if a mod 2=0 then writeln('a la so chan')
else writeln('a la so le');
realdn;
end.
readln(a);
ghi thiếu cái ;
:))