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
Thành Tân B1-
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2021 lúc 8:42

Bài 2: 

uses crt;

var x,i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

writeln(dem);

readln;

end.

tôi không biết
Xem chi tiết
huỳnh duy cát
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 3 2021 lúc 19:53

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.

Nguyễn Lê Phước Thịnh
20 tháng 3 2021 lúc 19:53

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.

No name
Xem chi tiết
Bùi Nguyễn Đại Yến
22 tháng 10 2021 lúc 17:18

Vì nó có tận cùng là chữ số chẵn như: 0,2,4,6,8... thì đều chia hết cho 2

Khách vãng lai đã xóa
𝚃̷ ❤𝚇̷❤ 𝙷̷
26 tháng 10 2021 lúc 15:23

TL

Vì nó có các số tận cùng chia hết cho 2

Hok tốt

Khách vãng lai đã xóa
My Trà
Xem chi tiết
lê thị bích ngọc
3 tháng 1 2022 lúc 18:22

- Bài này mình viết ở ngôn ngữ C++

- Chương trình :

#include<iostream> 

using namespace std; 

int main() { 

int g = 0; 

for (int i = 100; i <= 1000; i++) {

if (i % 2 == 0) { 

g += i;

 } 

}

cout << g; 

return 0; 

}

hà nhật ân
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 1 2022 lúc 8:34

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

for (i=100; i<=200; i++)

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

cout<<t;

return 0;

}

๖ۣۜHả๖ۣۜI
Xem chi tiết
Uyên  Thy
18 tháng 3 2022 lúc 21:05

Tham khảo
Bài 2.
Var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');
readln;
end.

M Ạ C H N H A
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:29

uses crt;

var i,n,t:integer;

begin

clrscr;

write('nhap n='); readln(n);

t:=0;

for i:=1 to n do 

 if i mod 2=0 then t:=t+i;

writeln(t);

readln;

end.