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.

6 tháng 3 2023

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)

6 tháng 3 2023

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)

16 tháng 3 2023

n = int(input("Nhập số nguyên n: "))

tong = 0

i = 1

while i <= n:

          tong += i

          i += 1

print("Tổng các số từ 0 đến", n, "là:", tong)

28 tháng 2 2022

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 :)

28 tháng 2 2022

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.

28 tháng 2 2022

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 :)

28 tháng 2 2022

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.

 

20 tháng 3 2022

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.

20 tháng 3 2022

program tinh_tong_chan;

uses crt;

Var i,N,S: integer;

begin

clrscr;

writeln('nhap so n');

readln(N);

S:=0;

i:=1;

while i <= N do

begin

S:=S+i;

i:=i+1;

end;

Writeln('tong la: ',S);

readln;

end.

đây bạn nha

 

30 tháng 4 2022

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.

7 tháng 3 2023

Program HOC24;

var i,n: integer;

S: longint;

begin

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

i:=2; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

19 tháng 3 2023

program TongCacSoChan;
var
    n, s, i: integer;
begin
    write('Nhap n: ');
    readln(n);
    s := 0;
    i := 2;
    while i <= n do
    begin
        s := s + i;
        i := i + 2;
    end;
    writeln('Tong cac so chan la: ', s);
    readln;
end.

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2==0) t+=i;

cout<<t;

return 0;

}

6 tháng 11

Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
        Clrscr;
Writeln(' Phan A ');
                Write(' Ban hay nhap 1 so n bat ky: ');
                Readln(n);
                Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
                        For i:=1 to n do
                                If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
                Write(' Ban hay nhap 1 so m bat ky: ');
                Readln(m);
                        For i:=1 to m do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        S:= S+A[i];
                                End;
                Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
                Write(' Ban hay nhap 1 so d bat ky: ');
                Readln(d);
                Write(' Ban hay nhap so K: ');
                Readln(k);
                        For i:=1 to n do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        If ((A[i] div k)=1)then t:=t+1;
                                End;
                Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.

 

 

19 tháng 5 2022

https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cac-so-chan-tu-1-toi-n-voi-n-duoc-nhap-tu-ban-phim-bang-vong-lap-whiledo.4935914584802

19 tháng 5 2022

Thank you <3