Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
trinhtrannamhoa
Xem chi tiết
ILoveMath
28 tháng 2 2022 lúc 7:17

Var i, n, S: integer;

Begin 

Read(n);

S:=0;

If i mod 2 = 0 then while i:=1 to n do S:=S+i;

Write (S);

Readln;

End.

Ko bt đúng ko :)

ILoveMath đã xóa
ILoveMath
28 tháng 2 2022 lúc 7:22

Tham khảo:

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=0 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

trinhtrannamhoa
Xem chi tiết
ILoveMath
28 tháng 2 2022 lúc 7:19

Var i, n, S: integer;

Begin 

Read(n);

S:=0;

If i mod 2 = 1 then while i:=1 to n do S:=S+i;

Write (S);

Readln;

End.

Ko bt đúng ko :)

ILoveMath đã xóa
ILoveMath
28 tháng 2 2022 lúc 7:21

Tham khảo:

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=1 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

 

Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 7:23

Cách khác:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

i:=1;

while (i<=n) do 

  begin

t:=t+i;

i:=i+2;

end;

writeln(t);

readln;

end.

trithengahihi
Xem chi tiết
Phía sau một cô gái
6 tháng 3 2023 lúc 14:55

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

Võ Thị Mạnh
6 tháng 3 2023 lúc 15:05

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 5 2021 lúc 19:39

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

Nguyễn Huỳnh Khôi Nguyên
3 tháng 5 2021 lúc 11:37

ae nào giúp mình với ạ'

 

Dung Nguyễn
Xem chi tiết
ILoveMath
28 tháng 2 2022 lúc 22:14

 

Số chẵn:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 0 then S:=S+i

Write(S);

Readln

End.

Số lẻ:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 1 then S:=S+i

Write(S);

Readln

End.

 

Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 22:32

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

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

{

cin>>x;

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

else t2+=x;

}

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

return 0;

}

Nguyễn Khải Minh
Xem chi tiết
Kiều Vũ Linh
30 tháng 4 2022 lúc 7:22

Var a:array[1..15] of integer;

i,s:integer;

Begin

I:=1;

While i<=15 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

i:=i+1;

End;

Write('Tong la ',s);

Readln;

End.

neon
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 20:30

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+i*(i+1);

write('S=',S);

readln

end.

Minh Lệ
7 tháng 3 2023 lúc 21:22

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

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

i:=0; s:=0;

while i<n do

begin

i:=i+1;

s:=s+i*(i+1);

end;

write('S=',S);

readln

end.

Alice
Xem chi tiết
Le Van Dai
Xem chi tiết
Phía sau một cô gái
4 tháng 5 2023 lúc 20:26

program TinhTongTich;

var

      N, i, Tong, Tich:integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      i:=1;

      Tong:=0;

      Tich:=1;

      while i<=N do

      begin

            Tong:=Tong+i;

            Tich:=Tich*i;

            i:=i+1;

      end;

      writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);

      writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);

      readln;

end.