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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
HT
1
19 tháng 4 2021
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to 2*n do
if i mod 2=1 then t:=t+sqr(i);
writeln(t);
readln;
end.
28 tháng 2 2023
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
4 tháng 4 2023
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
LM
1
15 tháng 2 2022
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+2*i-1;
writeln(t);
readln;
end.
UT
3
8 tháng 4 2021
Uses crt;
Var i,t,n:integer;
Begin
Clrscr;
Write('n='); readln(n);
T:=0;
For i:=1 to 2*n do
If i mod 2=1 then t:=t+i;
Writeln(t);
Readln;
End.
KV
8 tháng 2 2023
Câu 1:
var i,n:integer;
s:longint;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+(i*10+2);
write('S = ',s);
readln;
end.
Câu 2:
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do s:=s+1/n;
write('tong la ',s:10:2);
readln;
end.
NT
1
TH
14 tháng 3 2022
var n,i,s:longint; begin write('nhap so n=');readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(' tong n so nguyen la:',s); readln; end.
15 tháng 3 2022
Câu 1:
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++) s+=i;
cout<<s;
return 0;
}
Var i, n,s: longint;
Begin
Write('Nhap so luong so le can tinh tong ');readln(n);
For i:=1 to n do
if i mod 2 <> 0 then s:=s+i;
write('Tong cua ',n,' so le dau tien la ',s);
readln;
end.
Program tinhtong;
uses crt;
var A, N, i: integer;
begin
clrscr;
write ('nhap N = '); Readln (N);
A:=0;
for i:=1 to N do A:= A+(i*2-1);
writeln ('tong = ',A);
readln;
End.