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.

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

readln;

end. 

24 tháng 1 2021

mang tính chất test danh hiệu nhưng vẫn đúng nhá

29 tháng 10 2021

#inckude <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=t+i;

cout<<t;

return 0;

}

29 tháng 5 2018

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 5 = 0 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

10 tháng 10 2018

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 3 = 0 then Tong:=Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

1 tháng 4 2019

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 1 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

2 tháng 8 2017

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 0 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

uses crt;

var a:array[1..10]of longint;

n,i,t,dem,dem1,dem2,t1:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

t1:=0;

dem1:=0;

dem2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then dem1:=dem+1;

if a[i] mod 2=0 then 

begin

dem2:=dem2+1;

t1:=t1+a[i];

end;

end;

writeln(dem1);

writeln(t1/dem2:4:2);

readln;

end.

20 tháng 1 2022

uses crt;

var a:array[1..10]of longint;

n,i,t,dem,dem1,dem2,t1:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

t1:=0;

dem1:=0;

dem2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then dem1:=dem+1;

if a[i] mod 2=0 then 

begin

dem2:=dem2+1;

t1:=t1+a[i];

end;

end;

writeln(dem1);

writeln(t1/dem2:4:2);

readln;

end.

giúp mình với m.n ơi