Bài 6. Câu lệnh điều kiện

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)
Ngô Thị Tân
Xem chi tiết
Bastkoo
7 tháng 1 lúc 21:10

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

Bình luận (0)
đỗ quang quân
Xem chi tiết
Bastkoo
22 tháng 12 2023 lúc 20:33

#include <bits/stdc++.h>

using namespace std;

int main(){

     int n;

     cin >> n;

     long t;

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

     if (n%i==0) t=t+i;

     cout << t;

     return 0;

}

Bình luận (0)
Huỳnh Thanh Hương
Xem chi tiết
Đức Thắng
Xem chi tiết
Phía sau một cô gái
22 tháng 7 2023 lúc 19:56

program so_hoan_hao;

var

       n, tong_uoc, i: integer;

begin

       writeln('Nhap vao mot so nguyen duong n:');

       readln(n);

       tong_uoc := 0;

       for i := 1 to n-1 do

       begin

              if n mod i = 0 then

                     tong_uoc := tong_uoc + i;

       end;

       if tong_uoc = n then

              writeln('YES')

       else

              writeln('NO');

end.

Bình luận (0)
Snsbbdbd Xnxb
Xem chi tiết
Kiều Vũ Linh
13 tháng 5 2023 lúc 8:57

Var i,n:integer;

Begin

Write('n = ');readln(n);

Write('Day so tu 1 den ',n,' la ');

For i:=1 to n do write(i:8);

Readln

End.

Bình luận (0)
nguyễn thanh hà
Xem chi tiết
Nguyễn Thúy Nga
Xem chi tiết
Nguyễn Hoàng Duy
25 tháng 4 2023 lúc 23:15

program KiemTraChiaHet;
var a, b: integer;
begin
  write('Nhap vao a: ');
  readln(a);
  write('Nhap vao b: ');
  readln(b);
  if a mod b = 0 then
    writeln(a, ' chia het cho ', b)
  else
    writeln(a, ' khong chia het cho ', b);
      readln;
end.

 

Bình luận (0)
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết