Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lương Ngọc Anh
Xem chi tiết
Lê Kim Oanh
Xem chi tiết
Nguyễn Lê Phương Trà
Xem chi tiết
Rose Hạ Vy
30 tháng 7 2019 lúc 20:04

BTVN hay sao mà nhìu vậy bn

Ngọc Army
Xem chi tiết
Trung
Xem chi tiết
Phía sau một cô gái
20 tháng 4 2023 lúc 21:25

program TinhTongBinhPhuong;

var

     n, i, S: Integer;

begin

     Write('Nhap n: ');

     Readln(n);

     S := 0;

     for i := 1 to n do

     begin

          S := S + i * i;

     end;

     WriteLn('Tong cac binh phuong la: ', S);

end.

TNhi
Xem chi tiết
tran minh hung
Xem chi tiết
Phạm Văn Toản
11 tháng 4 2016 lúc 9:51

n=1998 va 2006

Lê Hoàng Anh
6 tháng 12 2016 lúc 19:51

2006 và 1988

Dương Đường Hương Thảo
26 tháng 1 2017 lúc 19:46

có cách giải ko

hoang the cuong
Xem chi tiết
hoang the cuong
11 tháng 9 2019 lúc 17:27

có bạn nào giải hộ mik nhé!

Nguyễn Linh Chi
12 tháng 9 2019 lúc 0:12

Ta có tính chất: Hiệu của một số với tổng các chữ số của nó chia hết cho 9

( xem cách chứng minh tại link Câu hỏi của Nguyễn Phương Chi - Toán lớp 6 - Học toán với OnlineMath )

Do đó ta có:

 \(A-S\left(A\right)⋮9\)

\(S\left(A\right)-S\left(S\left(A\right)\right)⋮9\)

\(S\left(S\left(A\right)\right)-S\left(S\left(S\left(A\right)\right)\right)⋮9\)

=> Cộng lại và triệt tiêu ta có: \(A-S\left(S\left(S\left(A\right)\right)\right)⋮9\)(1)

Ta có: \(A=2^{100}=2.2^{99}=2.8^{33}\)=> Số chữ số của A < 34

=> \(S\left(A\right)< 34.9=306\)

=> \(S\left(S\left(A\right)\right)< 3.9=27\)

=> \(S\left(S\left(S\left(A\right)\right)\right)< 2.9=18\) (2)

Mặt khác \(A=2^{100}=2.2^{99}=2.8^{33}\equiv2\left(-1\right)^{33}\equiv-2\equiv7\left(mod9\right)\)

=> \(A-7⋮9\)(3)

Từ (1); (2); (3) => S(S(S(A))) có thể bằng 7 hoặc 16

=> S(S(S(S(A)))) = 7

:)))) . Bài này thú vị quá! <3

hoang the cuong
12 tháng 9 2019 lúc 15:16

cảm ơn bạn

trần hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 4 2022 lúc 7:14

uses crt;

var n:string;

i,ln,nn,t,s,x,y:integer;

begin

clrscr;

readln(n);

writeln(length(n));

ln:=0;

nn:=9;

for i:=1 to length(n) do 

begin

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

if ln<x then ln:=x;

if nn>x then nn:=x;

end;

writeln(ln);

writeln(nn);

t:=0;

s:=1;

for i:=1 to length(n) do 

begin

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

t:=t+x;

s:=s*x;

end;

writeln(t);

writeln(s);

readln;

end.