Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Ngọc Như Quỳnh
Xem chi tiết
Hậu Duệ Mặt Trời
6 tháng 2 2016 lúc 9:35

là một số lẽ !!!!

Nguyễn Đặng Minh Nghĩa
6 tháng 2 2016 lúc 10:22

Là lẻ. Ví dụ: 7x7=49. 9x9=81

Trần Vũ Ngân Giang
Xem chi tiết
datcoder
19 tháng 12 2023 lúc 20:20

Program HOC24;

var x: integer;

begin

write('Nhap so: '); readln(x);

if x mod 2=0 then write('La so chan') else write('La so le');

readln;

end.

chikaino channel
Xem chi tiết
Tin Nguyen
Xem chi tiết
kieuanhk505
26 tháng 9 2021 lúc 11:09

Uses crt;

Var x:integer;

 Begin

         Write('Nhap vao mot so nguyen : ');

         Readln(x);

        If x MOD 2=0 Then

       Writeln('So vua nhap vao la so chan')

       Else

       Writeln('So vua nhap vao la so le');

       Readln;

End.

Nguyễn Phương Thục Uyên
Xem chi tiết
Dat Doan
19 tháng 3 2015 lúc 22:35

ta viết hai số lẻ đó dưới dạng như sau :

2k+1

thì theo đề ra ta có tổng :

(2k+1)+(2k+1)= 4k +2 

phân tích :

4k là số chẵn 

2 là số chẵn 

\(\Rightarrow\) 4k +2 là số chẵn

Nguyen Hoang Khoi
Xem chi tiết
Trần Ngọc My
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 6 2020 lúc 12:40

Bài này không dùng while do được

uses crt;

var a:integer;

begin

clrscr;

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

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

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

readln;

end.

Lan Thai
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 22:01

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=1;

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

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

Đặng Đức Nam
Xem chi tiết
Kiều Vũ Linh
20 tháng 4 2023 lúc 8:56

Var a:array[1..1000] of integer;

i,n:integer;

sc,sl:longint;

Begin

Write('Nhap so luong so cua day ');readln(n);

For i:=1 to n do

Begin

Write(a,'[',i,'] = ');readln(a[i]);

End;

Write('Tong cac so chan la ');

For i:=1 to n do

If a[i] mod 2 = 0 then sc:=sc+a[i];

Writeln(sc);

Write('Tong cac so le la ');

For i:=1 to n do

If a[i] mod 2 <> 0 then sl:=sl+a[i];

Write(sl);

Readln

End.