Những câu hỏi liên quan
Tan Bui
Xem chi tiết
Hà Thu Giang
Xem chi tiết
Yuu Shinn
31 tháng 3 2016 lúc 13:46

Số đường ngày thứ nhất bán được là:

            2400:100x35=840kg

Số đường ngày thứ hai bán được là:

            2400:100x40=960kg

Số đường ngày thứ ba bán được là:

            2400-(840+960)=600kg

                            Đáp số : 600kg

Bình luận (0)
SKT_ Lạnh _ Lùng
31 tháng 3 2016 lúc 11:53

Số đường ngày thứ nhất bán được là:

            2400:100x35=840kg

Số đường ngày thứ hai bán được là:

            2400:100x40=960kg

Số đường ngày thứ ba bán được là:

            2400-(840+960)=600kg

                            Đáp số : 600kg

Bình luận (0)
Đỗ Đình Dũng
31 tháng 3 2016 lúc 11:55

Số phần trăm số đường ngày thứ ba bán được là :

100 % - ( 35 % + 40 % ) = 25 %

Ngày thứ ba bán được :

2400 : 100 x 25 = 600 ( kg đường )

Đáp số : 600 kg đường

Bình luận (0)
Vy Tuong
Xem chi tiết
Vy Tuong
4 tháng 6 2020 lúc 13:21

giup mik vs mik dg can gap

Bình luận (0)
Minh Lệ
4 tháng 6 2020 lúc 13:36

Câu 1:

Program HOC24;

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

min,max,i: integer;

begin

for i:=1 to 10 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

min:=32000; max:=0;

for i:=1 to 10 do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la :',max);

write('So nho nhat la : ',min);

readln

end.

Bình luận (0)
Minh Lệ
4 tháng 6 2020 lúc 13:37

Câu 2:

Program HOC24;

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

t,i: integer;

begin

for i:=1 to 20 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

t:=0;

for i:=1 to 20 do

if a[i] mod 2<>0 then t:=t+a[i];

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

readln

end.

Bình luận (0)
do thi kim anh
Xem chi tiết
Nguyễn Văn Khoa
26 tháng 11 2016 lúc 16:03

Ngày thứ nhất bán được số đường là:30:5x2=12 tạ đường 

Ngày thứ hai bán được là :12:2=6 tạ đường

Của Hàng còn lại là:30-12-6=12 tạ đường

Bình luận (0)
Diệu Huyền
Xem chi tiết
Ji Jiang
14 tháng 11 2019 lúc 17:03

Lập trình đơn giản

Bình luận (0)
 Khách vãng lai đã xóa
Sara Trang
14 tháng 11 2019 lúc 20:46

Program DIEN_TICH_TAM_GIAC;

uses crt;

var a,h,s:integer;

begin

clrscr;

Write('Nhap canh day:'); Readln(a);

Write('Nhap chieu cao:'); Readln(h);

s:=(a*h)/2;

Writeln('Dien tich cua hinh tam giac la:',s);

Readln

End.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
14 tháng 11 2019 lúc 22:02

xin lỗi bạn

mình xin sửa lại

uses crt;

var a,h:integer;

s:real;

begin

clrscr;

Write('Nhap canh day:'); Readln(a);

Write('Nhap chieu cao:'); Readln(h);

s:=(a*h)/2;

Writeln('Dien tich cua hinh tam giac la:',s:4:2);

Readln

End.

Bình luận (0)
 Khách vãng lai đã xóa
Tran Khanh Van
Xem chi tiết
tran hai thanh
5 tháng 1 2018 lúc 20:37

B1 nhập số nguyên n từ bàn phím và đưa ra thông báo n là số âm hay số dương
B2 nhập vào 3 số nguyên a b c bất kì từ bàn phím và đưa ra kết quả tính tổng của 3 số đó và phép chia tổng a và b cho C

còn cái dưới mình chịu

ngaingung

Bình luận (0)
dang nguyet anh
Xem chi tiết
Duongtrucqui
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 6 2020 lúc 20:19

uses crt;

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

n,i,kt,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

writeln('Cac so nguyen duong la: ');

for i:=1 to n do

if a[i]>0 then write(a[i]:4);

writeln;

writeln('Cac so nguyen to la: ');

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

Bình luận (0)
Hoang Do Truc Ly
Xem chi tiết