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.

30 tháng 10 2020

uses crt;

var i,m,j,t,dem,s:integer;

begin

clrscr;

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

t:=0;

dem:=0;

for i:=1 to m do

begin

s:=0;

for j:=1 to i-1 do

if i mod j=0 then s:=s+j;

if s=i then begin

inc(dem);

t:=t+i;

end;

end;

writeln;

writeln('Tong cac so hoan hao trong pham vi tu 1 toi ',m,' la: ',t);

writeln('So so hoan hao trong pham vi tu 1 toi ',m,' la: ',dem);

readln;

end.

21 tháng 10 2021

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

cout<<t;

return 0;

}

22 tháng 3 2023

Program HOC24;

var i,n: integer;

tc,tl: longint;

begin

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

tc:=0; tl:=0;

for i:=1 to n do if i mod 2=0 then tc:=tc+i else tl:=tl+i;

writeln('Tong chan la: ',tc);

write('Tong le la: ',tl);

readln

end.

23 tháng 7 2017

Phần a (1,5 đ)

Bước 1: Nhập số nguyên dương N 0,25
Bước 2: S ←0; i ←1 0,25
Bước 3: Nếu i> N thì đưa ra tổng S và kết thúc. Ngược lại sang bước 4 0,5
Bước 4: S ←S+i 0,25
Bướ c 5: i ← i+1 quay lại bước 3 0,25

Phần b (1 đ)

Bước 1: Nhập số nguyên dương N 0,125
Bước 2: S←0; i←1 0,125
Bước 3: Nếu i> N thì đưa ra tổng S và kết thúc. Ngược lại sang bước 4 0,125
Bước 4: S←S+i 0,125
Bướ c 5: i← i+2 quay lại bước 3

uses crt;

var m,n,s,i:integer;

begin

clrscr;

readln(m,n);

s:=0;

for i:=m to n do

if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

uses crt;

var m,n,s,i:integer;

begin

clrscr;

readln(m,n);

s:=0;

for i:=m to n do

if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.