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.

Câu 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Câu 2: 

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do

if a[i]>0 then inc(dem);

writeln('So luong phan tu duong la: ',dem);

readln;

end.

Câu 3: 

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do 

  begin

      writeln('Bang nhan ',i,' la: ');

for j:=1 to 10 do 

  writeln(i,'*',j,'=',i*j);

delay(200);

end;

readln;

end.

uses crt;

var t,n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

t:=0;

for i:=0 to n do 

  if i mod 2=0 then 

begin

t:=t+i;

dem:=dem+1;

end;

writeln(dem,' ',t);

readln;

end.

6 tháng 11 2024

Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
        Clrscr;
Writeln(' Phan A ');
                Write(' Ban hay nhap 1 so n bat ky: ');
                Readln(n);
                Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
                        For i:=1 to n do
                                If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
                Write(' Ban hay nhap 1 so m bat ky: ');
                Readln(m);
                        For i:=1 to m do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        S:= S+A[i];
                                End;
                Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
                Write(' Ban hay nhap 1 so d bat ky: ');
                Readln(d);
                Write(' Ban hay nhap so K: ');
                Readln(k);
                        For i:=1 to n do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        If ((A[i] div k)=1)then t:=t+1;
                                End;
                Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.

 

 

4 tháng 1 2017

Từ 1 đến 9 có 9 chữ số

Từ 10 đến 99 có 90 số => có 90 * 2 = 180 chữ số

Từ 100 đến 500 có 401 số => có 401 * 3 = 1203 chữ số

<=> Tù 1 đến 500 có : 1203 + 108 + 9 = 1392 chữ số 

4 tháng 1 2017

từ 1 đến 9 có 1 chữ số 5

từ 10 đến 99 có 10 chữ số 5

từ 100 đến 500 có 40 chử số 5

từ 1 đến 500 có 1+10+40 = 51 (chử số 5)

7 tháng 3 2023

 

 

 

7 tháng 3 2023

uses crt;

var i,n,d:longint;

begin 

d:=0;

writeln('nhapn=');read(n);

for i:=1 to n do

begin

if i mod 3=0 then write(i,' ');

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

end;

writeln('tong=',d);

readln;

end;

15 tháng 9 2015

- Từ 1-9 có 9 số, mỗi số có 1 chữ số nên có 9 chữ số. 
- Từ 10-99 có 90 số, mỗi số có 2 chữ số nên có 90x2=180 chữ số 
- số 100 co 3chữ số 
Vậy: Bạn tâm phải viết tất cả là: 9+180+3=192 chữ số 

15 tháng 9 2015

                                                           GIẢI

Từ 1 đén 9 có 9 số có 1 chữ số ( 9.1=9)

​Từ 10 đến 99 có 180 số có 2 chữ số ( 99-10+1).2=180

100 có 3 chữ số

​vậy tâm cần : 9+180+3= 192 chữ số để đánh hết số trang.

30 tháng 6 2017

Từ trang 1 -> trang 9 có 9 số có 1 chữ số 

Từ trang 10 -> trang 99 có 90 số có 2 chữ số

Trang 100 có 1 số có 3 chữ số 

Vậy , Tâm phải viết số chữ số là : 
(9.1)+ (90.2) + (1.3) = 192 ( chữ số )

30 tháng 6 2017

Từ trang 1 đến trang 9 có :

( 9 - 1 ) : 1 + 1 = 9 ( số )

Từ trang 10 đến trang 99 có :

 ( 99 - 10 ) : 1 + 1 = 90 ( số )

Và trang 100 là trang duy nhất có 3 chũ số .

Vậy bạn Tâm phải viết tất cả số chữ số là :

 9 x 1 + 90 x 2 + 1 x 3 = 192 (chứ số)

                                 Đ/S : 192 chữ số