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.
Program HOC24;
var n,i: integer;
s: longint;
begin
write('Nhap N: '); readln(n);
s:=2021;
for i:=0 to n do s=s+(2*i+1);
write('S= ',s);
readln
end.
*Cách 2: Dùng While do
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=2021;
i:=0;
while i<=n do
begin
s:=s+(2*i+1);
i:=i+1;
end;
writeln(s);
readln;
end.
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%15==0) t=t+x;
}
cout<<t;
return 0;
}
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
write(s);
readln;
end.
uses crt;
var n,i,s:integer;
begin
Write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
write(s);
readln;
end.
Bài 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 372 do
if i mod 3=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var n,i,t,x,y,d:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln(t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double s,a;
int i,n;
int main()
{
cin>>a;
s=0;
n=0;
while (s<=a)
{
n=n+1;
s=s+1/(n*1.0);
}
cout<<n;
return 0;
}
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if ((x<0) and (x%2!=0)) t=t+x;
}
cout<<t;
return 0;
}
uses crt;
var i,n:integer;
s:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=2021;
for i:=1 to n do
s:=s+i;
writeln('s=', s);
readln;
end.