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.

21 tháng 3 2023

Program Tinhtong;
Uses Crt;
var i,S: integer;
begin
Clrscr;
S:=0;
For i :=1 to 7 do S:=S+i;
Writeln('Tong cac so tu 1 den 7 la ',S);
End.

19 tháng 3 2023

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

19 tháng 3 2023

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long t1,t2,i;

int main()

{

t1=0;

t2=0;

for (i=15; i<=1000; i++)

{

t1+=i;

t2-=i;

}

cout<<t1<<" "<<t2;

return 0;

}

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 55 do s:=s+i;

writeln(s);

readln;

end.

28 tháng 2 2022

Program Tong_cac_so_tu_nhien;

Uses CRT;

Var i,d: Byte;

Begin

d:=0;

For i = 10 to 99 Do d:=d+i;

Writeln('Tong cac so tu nhien tu 10 den 99 la ',d);

End.