Những câu hỏi liên quan
Phan Thị Ka
Xem chi tiết
Minh Lệ
19 tháng 3 2023 lúc 22:40

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.

Minh Lệ
19 tháng 3 2023 lúc 22:41

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.

Minh Lệ
19 tháng 3 2023 lúc 22:42

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

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

t:=0;

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

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

Quỳnh Trâm Nguyễnn
Xem chi tiết
ILoveMath
7 tháng 3 2022 lúc 14:16

Uses Crt;

Var n,i,S:longint;

Begin

Clrscr;

Readln(i,S,n);

For i:=1 to n do S:=S+i

Write(S);

Readln

End.

thuy thanh
Xem chi tiết
Minh Lệ
22 tháng 3 2023 lúc 13:25

Program HOC24;

var i,s: integer;

begin

s:=0; i:=1;

while s<=22 do

begin

s:=s+i;

i:=i+1;

end;

s:=s-i;

write('Tong la: ',s);

readln

end.

Nguyễn Hoàng Duy
22 tháng 3 2023 lúc 16:41

program sum_of_naturals;

var
  i, n, sum: integer;

begin
  n := 1;
  sum := 0;
  
  while sum + n <= 22 do
  begin
    sum := sum + n;
    n := n + 1;
  end;
  
  writeln('The sum of the first ', n-1, ' natural numbers is ', sum);
end.

Hoàng Thị Mỹ Phan
Xem chi tiết
Ngọc Trâm
Xem chi tiết
tuan manh
12 tháng 3 2023 lúc 18:22

Yna Lolipop
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 3 2022 lúc 23:11

1:

#include <bits/stdc++.h>

using namespace std;

long long dem,i,n,x;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

Câu 2: 

#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%3==0) t+=x;

}

cout<<t;

return 0;

}

lân đinh
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 5 2021 lúc 10:59

Bài 1: 

uses crt;

var n,t1,t2,t3,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t1:=0;

t2:=0;

for i:=1 to n-1 do 

  begin

if i mod 2=1 then t1:=t1+i

else t2:=t2+i;

end;

writeln('Tong cac so le nho hon ',n,' la: ',t1);

writeln('Tong cac so chan nho hon ',n,' la: ',t2);

t3:=0;

for i:=1 to 2*n do 

  t3:=t3+i;

writeln('Tong cac so trong day so tu 1 toi 2*',n,' la: ',t3);

readln;

end.

Nguyễn Hoàng Hà
Xem chi tiết
Thu Hằng
14 tháng 3 2022 lúc 20:09

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.

Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:47

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;

}

Kiet Quoc
Xem chi tiết
Minh Lệ
21 tháng 10 2021 lúc 16:29

Program HOC24;

var n,i: integer;

t: longint;

Begin

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

t:=0;

for i:=1 to n do t:=t+i;

if t mod 2=0 then write('Tong la so chan') else write('Tong la so le');

readln

end.

krt-ttt
25 tháng 10 2021 lúc 20:47

n = int(input('nhap n'))

s = 0

for i in range(0,n):

     s = s+i

print('tong cua day tu 0 den '+n+'la'+s)

if s%2 == 0:

     print('s la so chan')

else:

     print('s la so le')