,vt chương trình tính tổng các số chẵn đầu tiên cho tới khi đc tổng nhỏ nhất >1000
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.
#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;
}
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.
Nhập vào màn hình :
X = X + 1 : A = X / ( X + 1 )^2 : B = A + B
CALC ? X = 0 ; B = 0
= = = = ....
"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;
}
Bài 1 :
Uses crt;
Var x,y:integer;
Begin
clrscr;
Readln(x,y);
Write('Tong cua x,y la ',x+y);
Readln
End.
Bài 2 :
Uses CRT;
var x,y,z:integer; tbc:real;
begin
clrscr;
readln(x,y,z);
tbc:=(a+b+c)/3;
Write('Trung binh cong x,y,z la ',tbc:4:2);
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.