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 Bá Thành
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:15

uses crt;

var i,t1,t2:integer;

begin

clrscr;

t1:=0;

t2:=0;

i:=0;

while i<=20 do 

begin

i:=i+1;

if i mod 2=0 then t1:=t1+i

else t2:=t2+i;

end;

writeln(t1);

writeln(t2);

readln;

end.

Hi HI Hi
Xem chi tiết
Kiều Vũ Linh
25 tháng 3 2022 lúc 9:17

var a:integer;

begin

a:=500;

writeln('cac so chia het cho 7 la:');

while a>=200 do

begin

if a mod 7 = 0 then writeln(a);

a:=a-1;

end;

readln;

end.

Bảo Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 23:03

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

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

cout<<t;

return 0;

}

lio Nana
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
17 tháng 9 2019 lúc 7:17

Nguyễn Thị Yến Nhi
Xem chi tiết
Nguyễn Thị Ngọc Anh
2 tháng 1 2022 lúc 21:44

 

program;

uses crt;

var a:longint;

begin

clrscr;

write('nhap a:');readln(a);

if(a>=0)and(a<=50)then write('n nam trong khoang tu 1 den 50')

else write('n khong nam trong khoang tu 1 den 50');

readln;

Nguyễn Lê Phước Thịnh
2 tháng 1 2022 lúc 21:47

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

if ((a>=1) and (a<=50)) cout<<"YES";

else cout<<"NO";

return 0;

}

Huỳnh Hoài Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:23

uses crt;

var i,n,t:integer;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

begin

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

i:=i+1;

end;

write(t);

readln;

end.

Ngọc Nguyễn
Xem chi tiết
Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 1 2022 lúc 15:09

uses crt;

var a,t,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 6 do 

  begin

readln(a);

if (a mod 2=0) then t:=t+a;

end;

writeln(t);

readln;

end.