Program Ai_nặng_hơn;

var a,b : real;

begin

writeln ('Nhập cân nặng cảu bạn a :'); readln(a);

writeln ('Nhập cân nặng cảu bạn b :'); readln(b);

if a>b then writeln ('Bạn a nặng hơn bạn b')

else if a<b then writeln ('Bạn b nặng hơn bạn a')

else writeln ('Hai bạn a và b nặng bằng nhau');

readln

end.

Pascal không có dấu nha bạn!

T=40

i=20

T <-- 20; i <-- 0;

Vậy T = 50, i = 20

usfdjhghsaghf'f

@buithianhtho,@HISINOMA KINIMADO,@Vy Lan Lê,@Phạm Hoàng Lê Nguyên,...CTV khác nx,...ko làm đc thì phải đạp đổ.

Muốn nổi rồi!ko có ý phá hay j cả!!!

??? j vậy

* Mô tả thuật toán:

- Nhập a;

- Nếu a<100 then với giá 1200đ ngược lại với giá 2000đ;

- In kết quả ra màn hình và kết thúc.

* Viết chương trình:

program Tien_dien;

uese crt;

var a,S:integer;

begin

clrscr;

write('Hay nhap KW tiêu thụ');readln(a);

if a<100 then S:=100*1200 else S:=100*2000;

writeln('So tien ho gia dinh can tra:',S);

readln

end.

(mk hk chắc nha bạn mk chỉ pk nhiêu đây thôi)

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

- Máy thực hiện gồm vô hạn vòng lặp

- Khi kết thúc vòng lặp giá trị của S không xác định

- Chương trình :

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<=10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10

-kết thúc,s=10

chương trình:

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

program Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;

Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);

Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;

Writeln('So lon nhat trong 4 so do la: ',Max);
readln;

End.

Tìm GTLN : =SUM(X_A:Y_B) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.