Giúp mình làm bài 1 phần A phần thực hành ý.
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
2:
uses crt;
var a:array[1..100]of integer;
i,n,dem,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
b[1]:=a[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[j]=a[i] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
a) =8 phần 27 ×( 7 phần 4 - 3 phần 8 + 1 phần 2)
= 8 phần 27 × ( 14 phần 8 - 3 phần 8 + 4 phần 8)
= 8 phần 27 × 15 phần 8
= 5 phần 9
b) = 5 phần 18 × ( 2 phần 5 - 1 phần 3 + 5 phần 6)
= 5 phần 18 × ( 12 phần 30 - 10 phần 30 + 25 phần 30)
= 5 phần 18 × 27 phần 30
= 5 phần 18 × 9 phần 10
= 1 phần 4
c) =( 29 phần 10 - 3 phần 10 + 1 phần 3) ÷ 8 phần 15
=( 87 phần 30 - 9 phần 10 + 10 phần 30) ÷ 8 phần 15
= 88 phần 30 × 15 phần 8
= 44 phần 15 × 15 phần 8
= 44 phần 8
= 11 phần 2
d) = 238 ÷ ( 1 phần 2 + 7 phần 4 - 1 phần 4)
= 238 ÷ ( 2 phần 4 + 7 phần 4 - 1 phần 4)
= 238 ÷ 8 phần 4
= 238 × 4 phần 8
= 238 × 1 phần 2
= 119
bn ghi bài ra đi quyển đấy mk làm mất rồi