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.

uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

n:=0;

repeat

n:=n+2;

t:=t+n;

until t>5000;

writeln(t);

readln;

end.

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

i:=0;

repeat

 i:=i+2;

s:=s+i;

until s>1000;

writeln(s);

readln;

end.

23 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long n,t,x;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n=n/10;

}

if (t%3==0) cout<<"Co";

else cout<<"Khong";

return 0;

}

24 tháng 11 2021

amf theo kieeur true false duoc ko ak?

uses crt;

var m,n,t,i:integer;

begin

clrscr;

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

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

t:=0;

for i:=m to n do 

  t:=t+i;

writeln(t);

readln;

end.

25 tháng 5 2021

program im_14424;

uses crt;

var A: array[1..100000] of integer;

S,i,n: integer;

begin

clrscr;

write('Nhap vao n: ');

readln(n);

S:=0;

for i:=1 to n do

begin

write('Nhap A[',i,']: ');

readln(A[i]);

if (A[i] mod 2 = 0 then S:=S+i;

end;

write(S);

readln

end.

25 tháng 5 2021

Chú ý dùng 14 có mở ngoặc nên có đóng ngoặc câu lệnh bạn nhé ^^

if (A[i] mod 2 = 0) then S:=S+i;

15 tháng 12 2015

Nhập vào màn hình :

X = X + 1 : A = X / ( X + 1 )^2 : B = A + B

CALC ? X = 0 ; B = 0 

 = = = = .... 

15 tháng 12 2015

"Shift" -> "Log" -> "Alpha" -> ")" -> "kí hiệu phân số" -> "(" -> "Alpha" -> ")" -> "+" -> "1" -> ")" -> "x2" -> nhấn nút phải 2 lần -> "1" -> nhấn nút phải -> "30"
Kết quả ra 2,414054495

#include <bits/stdc++.h>

using namespace std;

int n=10,i,x,t;

int main()

{

t=0;

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

{

cin>>x;

t+=x;

}

cout<<t;

}