K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

18 tháng 3 2022

Program viet_chuong_trinh_tinh_tong;
Uses Crt; 
Var i,s:integer; 
Begin 
Clrscr; 
i:=2; 
While (i>1) and (i<=100) do 
Begin 
s:=s+i; 
i:=i+2; 
End; 
Writeln(S); 
Readln; 
End.

uses crt;

var i:integer;

begin

clrscr;

i:=50;

while i<=150 do 

  begin

if i mod 2=0 then write(i:4);

i:=i+1;

end;

writeln;

i:=50;

while i<=150 do 

 begin

if i mod 2=1 then write(i:4);

i:=i+1;

end;

readln;

end.

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.

25 tháng 3 2022

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.

#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;

}

2 tháng 1 2022

 

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;

#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;

}

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.

20 tháng 1 2022

crm ơn bạn nhiều nha

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.