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.

15 tháng 3 2021

16 tháng 3 2022

var n:integer; 
begin 
write('Nhap n: '); readln(n); 
if (n mod 3 =0) then 
write(n,' chia het cho 3') 
else 
write(m,' k chia het cho 3'); 
readln; 
end. 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

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

}

cout<<t;

return 0;

}

uses crt;

var x:array[1..100]of real;

n,i:integer;

tb:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('X[',i,']='); readln(x[i]);

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+x[i];

writeln(tb/n:4:2);

readln;

end.

Bước 1: Nhập n và nhập dãy số

Bước 2: tb←0; i←1;

Bước 3: tb←tb+x[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4

Bước 6: Xuất tb/n;

Bước 7: Kết thúc 

17 tháng 4 2021

program tim_tong;

uses crt;

var x,i,tong:longint;

begin

clrscr;

tong:=0;i:=1;

while tong<=3500 do

begin

write('x',i,'=');readln(x);

tong:=tong+x;

i:=i+1;

end;

write('tong cac so tren la:',tong);

readln;

end.

8 tháng 2 2016

a.đặt a+15=b2;a-1=c2

=>(a+15)-(a-1)=b2-c2=(b+c)(b-c)

=>(b+c)(b-c)=16

ta có 2 nhận xét:

*(b+c)-(b-c)=2c là 1 số chẵn nên 2 số b+c và b-c là 2 số cùng tính chẵn lẻ.Mà 16 là số chẵn nên 2 số b+c và b-c cùng chẵn.

*b+c>b-c(vì a là số tự nhiên)

=>b+c=8 và b-c=2 =>b=(8+2):2=5

vậy a+15=52=>a=10

30 tháng 3 2020

uses crt;
var n,i:integer;
kq,x: real;
begin
clrscr;
write('Nhap N: ');readln(n);
i:= 0; kq:= 0;
while i < n do
begin
i:= i + 1;
write('Nhap X ',i,': ');
readln(x);
kq:= kq + x;
end;
write('Trung binh ',n,' so thuc la: ',kq / n:0:2);
readln
end.