- Xem thông tin về các tệp và thư mục
- Tạo mới
- Xóa
- Đổi tên
- Sao chép
- Di chuyển

Cho mk biết chức năng từng thao tác được chứ

program ba_canh_tam_giac;

uses crt;

var a,b,c: real;

Begin

clrscr;

write('Nhap ba so a, b và c: '); readln (a,b,c);

If (a+b>c) and (b+c>a) and (c+a>b) then

writeln (' a,b va c la ba canh cua mot tam giac ')

else writeln ( ' a,b va c khong la ba canh cua mot tam giac ');

readln

end.

Read(a) {a la so tien khach mua} ;

T := a;

If T\(\ge\)100000 then T := 90%T else T:= 95%T;

Writeln('So tien phai tra la', T)

Sao T lại bằng là 90% và 95%. Đề yêu cầu số tiền phải trả là bao nhiêu mà

if G>100000 then wirte('giam gia 10%') else wirteln('giam gia 5%');

var n:int64;

begin

readln(n);

if n>100000 then n:=n div 10 else n:=n div 20;

write(n);

end.

Bài 1:

Bài 2:

bạn ơi cho mình hỏi kết qua bài 1 ra nhiêu thế ạ 

var n,i,s:longint;

begin clrscr;

wroite('n=');readln(n);

s:=0;

for i:=1 to n do s:=s+2*i+1;

write(s);

readln;

end.

s=1+1/2+1/3+...+1/n

program dien_tich_hcn;

uses crt;

var a,b:real;

begin

clrscr;

write('Nhap chieu dai: ');readln(a);

write('Nhap chieu rong: ');readln(b);

writeln('Dien tich hinh chu nhat: ',a*b:10:2);

writeln('Chu vi hinh chu nhat: ',(a+b)*2:10:2);

readln;

end.

INPUT: Dãy 100 số tự nhiên đầu tiên đầu tiên.

OUTPUT: Giá trị của tổng 1+2+...+100

B1: S=0; i:=0 ;

B2 : S:=S+1; i:=0 ;

B3: Nếu biến đếm <= 100 (i<=100) chuyển sang bước 2. Ngược lại (i>=100) thì kết thúc thuật toán.

câu hỏi này đã có trên hoc24 rồi là mà câu hỏi của Nguyễn Hoàng Tuyết Linh

trên đó là cách của bạn Nguyen Thi Hong Ngoc đây là cách của mình

INPUT: Dãy 100 số tự nhiên đầu tiên đầu tiên.

OUTPUT: Giá trị của tổng 0+1+2+...+99

B1: khai báo biến ; S=0; i:=0 ;

B2 : for i to 99 do S:=S+i ;

đây là hai cách mình đưa ra bạn cứ tham khảo nhé

oke, em sẽ xem xét

xem xét cái gì, đang kiến nghị lên thầy phi need