Những câu hỏi liên quan
trẩn đại phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 11 2021 lúc 23:53

uses crt;

var a:int64;

begin

clrscr;

readln(a);

if a mod 2=0 then writeln('la so chan')

else writeln('la so le');

readln;

end.

Bình luận (0)
Hoàng Yến Nhi
Xem chi tiết
Trần Ái Linh
12 tháng 5 2021 lúc 12:24

program im_14424;

uses crt;

var m: interger;

begin 

clrscr;

write('Nhap vap so nguyen duong m: ');

readln(m);

if m>0 and m mod 2 = 0 then write('So nguyen duong m la so chan');

if m>0 and m mod 2 <> 0 then write('So nguyen duong m la so le);

if m<0 then write('m khum phai la so nguyen duong');

readln

end.

Bình luận (1)
Hoàng Yến Nhi
12 tháng 5 2021 lúc 12:12

Mong được sự giúp đỡ của mọi người ạ

Bình luận (0)
Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:34

uses crt;

var m:integer;

begin

clrscr;

repeat

write('Nhap m='); readln(m);

until m>0;

if m mod 2=0 then writeln(m,' la so chan')

else writeln(m,' la so le');

readln;

end.

Bình luận (0)
Vân Ngô
Xem chi tiết
Ngô Thành Chung
26 tháng 3 2022 lúc 17:05

var a:Array [1..100] of word;

      n,i:byte;

      S:word;

begin

 write('Nhap so so hang trong day : n = '); readln(n);

 for i:=1 to n do begin

                          write('A[',i,'] = '); 

                          readln(A[i]);

                         end;

S:=0;

for i:=1 to n do if A[i] mod 2 = 1 then S:=S+A[i];

if S = 0 then write('Trong day khong co so le nao nen khong tong khong ton tai') else write('Tong cac so le trong day la : S = ',S);

readln

end.

Bình luận (0)
Nhân_ 8C
Xem chi tiết
Long Tran
29 tháng 12 2021 lúc 7:19

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');

Bình luận (2)
Xem chi tiết
Nguyễn thị thúy Quỳnh
10 tháng 1 lúc 20:34

Đây là một ví dụ về phương trình kiểm tra số nguyên a là số chẵn hay số lẻ trong Scratch:

 

```scratch

Nhập "a" từ bàn phím

Nếu (a % 2 = 0) thì

    Hiển thị "a là số chẵn"

Ngược lại

    Hiển thị "a là số lẻ"

Kết thúc

```

 

Trong đó, `%` là toán tử chia lấy phần dư, và nếu `a % 2` bằng 0, thì số đó là số chẵn; ngược lại, là số lẻ.

Bình luận (0)

when green flag clicked
ask "Nhập số nguyên a:" and wait
set a to ((a) / (2)) * (2)
if (a) = (a) then
  say "Số nguyên a là số chẵn"
else
  say "Số nguyên a là số lẻ"
end

 

Bình luận (0)

bạn học chương trình mới à,hay sao học scratch sớm vậy.Mình lớp 9 học nâng cao mới đúng đến đây ;-;

Bình luận (0)
phạm ngọc hân
Xem chi tiết
Dung Nguyễn
Xem chi tiết
ILoveMath
28 tháng 2 2022 lúc 22:14

 

Số chẵn:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 0 then S:=S+i

Write(S);

Readln

End.

Số lẻ:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 1 then S:=S+i

Write(S);

Readln

End.

 

Bình luận (2)
Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 22:32

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) t1+=x;

else t2+=x;

}

cout<<t1<<" "<<t2;

return 0;

}

Bình luận (0)
Mai Thành Vinh
Xem chi tiết
Tri Le
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2021 lúc 23:18

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

Bình luận (0)