GH
1
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
16 tháng 4 2023
program Tong_Binh_Phuong_So_Chan;
uses crt;
var n, i, sum: integer;
begin
clrscr;
write('Nhap vao so nguyen n (6 < n < 30): ');
readln(n);
sum := 0;
for i := 2 to n do
if i mod 2 = 0 then
sum := sum + i * i;
writeln('Tong binh phuong cac so chan tu 1 den ', n, ' la: ', sum);
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.
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.
T
1
20 tháng 4 2023
program TinhTongBinhPhuong;
var
n, i, S: Integer;
begin
Write('Nhap n: ');
Readln(n);
S := 0;
for i := 1 to n do
begin
S := S + i * i;
end;
WriteLn('Tong cac binh phuong la: ', S);
end.
DN
7 tháng 3 2022
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
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
8 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
if (n%2==0)
{
t=0;
for (i=1; i<=n; i++) if (i%2==0) t+=i;
}
else
{
t=0;
for (i=1; i<=n; i++) if (i%2!=0) t+=i;
}
cout<<t;
return 0;
}
VQ
12 tháng 3 2022
tk
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
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
14 tháng 3 2022
uses crt;
var n,i,t,dem:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then
begin
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln(t);
end
else
begin
t:=0;
dem:=0;
for i:=1 to n do
if i mod 2=1 then
begin
t:=t+i;
dem:=dem+1;
end;
writeln(t/dem:4:2);
end;
readln;
end.
TT
1
18 tháng 3 2021
Sửa đề: Tính tổng bình phương các số nhỏ hơn hoặc bằng n
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln(s);
readln;
end.
22 tháng 2 2022
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln('Tong hai so la: ',a+b);
writeln('Tong binh phuong hai so la: ',sqr(a)+sqr(b));
readln;
end.
Uses crt;
var i,n: integer;
begin clrscr;
for i:=1 to 100 do n:=n+(i*i);
write(n);
readln;
end.