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.

Thảo Tick mik đi mik tick lại

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;

repeat

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

until n > 0;

if n mod 3 = 0 then

write('- so ',n,' chia het cho 3 ') else

write('- so ',n,' khong chia het cho 3 ');

writeln;

if n mod 2 = 0 then

write('- so ',n,' la so chan ') else

write('- so ',n,' la so le ');

readln;

end.

x=4;4,01

                                                   Bài giải

      Đoạn thẳng CD dài số mét là:

                     2400:(15+25)=60(m)

            Diện tích hình tam giác MDC là:

                         60x25:2=750(m²)

                                      Đáp số : 750 m²

Program bai1;

uses crt;

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

n,i,dem: integer;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

dem:=0;

for i:= 1 to n do

if a[i] > 0 then dem:=dem+1;

write('co ',dem,' so duong trong day ');

readln;

end.

đề bài bạn mình không hiểu gì cả

program XinChao;

uses crt;

begin

clrscr;

writeln('Xin chao cac ban!');

writeln('Toi ten la Huyen Minh Lam Nguyet ');

writeln('Toi hoc lop 9');

readln;

end.