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.

30 tháng 7 2019

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

20 tháng 4 2023

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.

11 tháng 4 2016

n=1998 va 2006

6 tháng 12 2016

2006 và 1988

11 tháng 9 2019

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

12 tháng 9 2019

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

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.