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.

Bài 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 372 do 

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

writeln(s);

readln;

end.

Bài 2: 

uses crt;

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

st:string;

begin

clrscr;

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

str(n,st);

t:=0;

d:=length(st);

for i:=1 to d do 

  begin

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

t:=t+x;

end;

writeln(t);

readln;

end.

26 tháng 3 2022

var a:Array [1..100] of word;

      n,i:byte;

      S:word;

begin

 write('Nhap so so hang trong day : n = '); readln(n);

 for i:=1 to n do begin

                          write('A[',i,'] = '); 

                          readln(A[i]);

                         end;

S:=0;

for i:=1 to n do if A[i] mod 2 = 1 then S:=S+A[i];

if S = 0 then write('Trong day khong co so le nao nen khong tong khong ton tai') else write('Tong cac so le trong day la : S = ',S);

readln

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do

s:=s+i*i;

write(s);

readln;

end.

11 tháng 1 2023

uses crt;

var n,i,s:integer;

begin

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

s:=0;

for i:=1 to n do

s:=s+i*i;

write(s);

readln;

end.

2 tháng 3 2023

N = int(input('Nhập số dương N (N <= 200): '))

A = [ ]

# Nhập dãy A

for i in range(N):

     A.append(int(input('Nhập số nguyên thứ {}: '.format(i + 1))))

# Tính tổng và trung bình cộng

total = 0

for num in A:

     total += num

mean = total / N

print('Tổng các số trong dãy A là: {}'.format(total))

print('Trung bình cộng của dãy A là: {:.2f}'.format(mean))

2 tháng 3 2023

sao tui ko đọc dc v sos

 

18 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

12 tháng 10 2021

Mình dùng C++ nên div = /; mod = % nha bn!

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, S;
cin >> a;
S=0;
while(a>0)
{
    S+=a%10, a=a/10;
}
cout << S << endl;
return 0;
}

Chúc bn học tốt!

13 tháng 10 2021

em cảm ơn ạ

 

4 tháng 1 2017

a)

uses crt;

VAR

n, d, i: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

d : = 1;

For i: = 1 to n do

d: = d*i;

Writeln ('d=',d);

Readln;

END.

c)

uses crt;

VAR

n, i, demuoc: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

demuoc: = 0;

For i: = 1 to n do

If n mod i = 0 then

demuoc : = demuoc + 1;

If demuoc = 2 then

Writeln ('n la so nguyen to')

ELSE

Writeln ('n khong phai la so nguyen to');

Readln ;

END.

Còn phần b bạn tự nghĩ nha!

Chúc bạn học tốt!

24 tháng 11 2024

MÀY LÀ MỘT CON CHÓ NGU L NHẤT T TỪNG BIẾT 

ĐCM HƯƠNG TRÀ

ĐCM HƯƠNG TRÀ

ĐCM HƯƠNG TRÀ

CÁI J QUAN TRONG NHẮC LẠI 3 LẦN NHA CON ĐĨ NGU

 

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x%15==0) t=t+x;

}

cout<<t;

return 0;

}