program bai1;

uses crt;

var a,b,c,s: real;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

s:=a+b+c;

writeln('tong ba so a,b,c =',s:4:2);

readln;

end.

program bai1;

uses crt;

var n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

if n mod 2 = 0 then

writeln('la so chan ') else

writeln('la so le ');

readln;

end.

bài 3 :

B1: S <- 0 ; i<-0;

B2: i<- i+1;

B3: Nếu i <= 100 thì S:=S+i; Và quay lại B2.TRong trường hợp ngược lại thông bào kết quả rồi kết thúc thuật toán.

#include <bits/stdc++.h>

using namespace std;

long long i,a[100],n;

int main()

{

freopen("songuyen.txt","r",stdin);

n=20;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

giup mình với nhé đi mà

Toán

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

  ( 9 - 1 ) : 1 + 1 = 9 ( trang )

Để đánh số trang từ 1 đến 9 cần:

  9 . 1 = 9 ( chữ số )

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

  ( 99 - 10 ) : 1 + 1 = 90 ( trang )

Để đánh số trang từ 1 đến 9 cần:

  90 . 2 = 180 ( chữ số )

Từ trang 100 đến trang 120 có:

  ( 120 - 100 ) : 1 + 1 = 21 ( trang )

Để đánh số trang từ 100 đến 120 cần:

  21 . 3 = 63 ( chữ số )

Phải dùng số chữ số là:

  9 + 180 + 63 = 252 ( chữ số )

b,

Khi viết các số có 1 chữ số, ta có 1 chữ số. Khi viết các số có 2 chữ số, ta có 2 chữ số. Khi viết số 100, ta có 3 chữ số.

Số các số tự nhiên có 1 chữ số là 9

Số các số tự nhiên có 2 chữ số là 99 - 10 + 1 = 90

Như vậy khi viết liên tiếp các số từ 1 đến 100 thì sẽ có tổng cộng 9 + 90 * 2 + 3 = 192 chữ số

Tiếng việt

Ở đây,làng xóm sầm uất,cây cối xanh rì.

nhớ k cho mik nha bạn!

Tham khảo:

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=0;

for i:=100 to 1000 do 

 s:=s+i;

writeln(s:0:0);

readln;

end.

Var i,s:longint;

Begin

For i:=100 to 1000 do

s:=s+i;

Write('Tong cac so tu 100 den 1000 la ',s);

Readln;

End.

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

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

t=t+i;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int i;

int main()

{

freopen("ketqua.out","w",stdout);

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

if (i%2==0) cout<<i<<" ";

return 0;

}

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if n mod i=0 then t:=t+i;

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

const fi='baitap.out'

var f1:text;

i,t:integer;

begin

assign(f1,fi); rewrite(f1);

t:=0;

for i:=1 to 20 do

  t:=t+i;

writeln(f1,t);

close(f1);

end.