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.

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;

}

15 tháng 3 2021

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 

23 tháng 4 2019

Bài 1 : 

8x - 0,4 = 7,8*x + 402

8x - 7,8*x = 402 + 0,4

0,2*x = 402,04

x= 402,04 : 0,2

x = 2012

23 tháng 4 2019

Bài 2

Theo bài ra , số học sinh lớp 6A bằng 1/2 tổng số học sinh hai lớp 6B và 6C

=> Số học sinh lớp 6A bằng 1/3 số học sinh của cả 3 lớp

Số học sinh lớp 6A là :

  120  x  1/3  =  40 học sinh

Tổng số học sinh lớp 6B và 6C là :

  120  -  40  =  80 học sinh

Số học sinh lớp 6B là :

  ( 80 - 6 ) : 2 = 37 học sinh

Số học sinh lớp 6C là :

  37  +  6  =  43 học sinh

26 tháng 4 2023

Python:
n = input("Nhập dãy số nguyên: ").split()
n = [int(i) for i in n]

so_le = [i for i in n if i % 2 != 0]
tong = sum(n)

print("Các số lẻ trong dãy là: ", so_le)
print("Tổng các số trong dãy là: ", tong)

Pascal:

program tongvasole;

const
  MAX_SIZE = 1000;

var
  numbers: array[1..MAX_SIZE] of Integer;
  count, i: Integer;
  total: Integer;
begin
  Write('Nhập số lượng phần tử trong dãy: ');
  ReadLn(count);
  for i := 1 to count do
  begin
    Write('Nhập phần tử thứ ', i, ': ');
    ReadLn(numbers[i]);
  end;

  Write('Các số lẻ trong dãy là: ');
  total := 0;
  for i := 1 to count do
  begin
    if numbers[i] mod 2 <> 0 then
      Write(numbers[i], ' ');
    total := total + numbers[i];
  end;
  WriteLn;

  WriteLn('Tổng các số trong dãy là: ', total);
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

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.

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if a[i] mod 7=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 7 la: ',t);

readln;

end.