Mình là Đỗ Nguyễn Hiền Thảo

Số m vải tổ I dệt được là :

345 : 100 x 40 = 138 ( m)

program abc;
uses crt;
var a,b,max : integer;
begin
clrscr;
write ( ' nhap a =' );
readln (a);
write ( ' nhap b = ');
readln (b);
a:=max;
if max<b then max:=b;
write ( ' so lon nhat la',max);
readln;
end.

Program bai1;

uses crt;

var n: integer;

begin

clrscr;

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

if (n mod 4= 0 ) and (n mod 5 = 0) then

writeln('so ', n , ' la so chia het cho 4 va 5 ')

else

writeln('so ' , n , ' la so khong chia het 4 va 5 ');

readln;

end.

Sự khác nhau giữa thủ tục chuẩn đưa dữ liệu ra màn hình Write và Writeln là
+ Với thủ tục write() sau khi đưa kết quả con trỏ ở cuối dòng văn bản
+ Thủ tục writeln() sau khi đưa kết quả con trỏ chuyển xuống đầu dòng tiếp theo

B0 Bắt đầu
B1 Nhập giá trị cho A và B
B2 Biến tam lấy giá trị của A ( Gọi là gán giá trị A cho tam , viết tam := A )
B3 A lấy giá trị của B ( Gọi là gán giá trị B cho A , viết A := B )
B4 B lấy giá trị của tam ( Gọi là gán giá trị tam cho B , viết B := tam )
B5 Thông báo kết quả
B6 Kết thúc

Program bai1;

uses crt;

var i,n,s: integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

s:=s+i;

writeln('tong = ' ,s);

readln;

end.

Mỗi chai sữa chứa số lít sữa là:

16,5 : 32 = \(\frac{33}{64}\)( lít sữa)

Vậy 48 chai như thế chứa số lít sữa là:

48x \(\frac{33}{64}\)=24,75(lít sữa)

Đ/S: 24,75 lít sữa

tích đúng dùng mình nha bạn

ai tick mik mik tick lại cho