Máy tính thực hiện 10 vòng lặp. Khi kết thúc giá trị của S=5

program CT;

uses crt;

var i, n : integer;

x, S : real;

begin

clrscr;

S:=0; x:=0.5;

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

Write('Gia tri S la: ',S:2:3);

readln

end.

Câu hỏi của bạn chung chung quá!

Theo mình là câu 4

var <tên biến> : array [<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

Vd: var A : array : [1..100] of integer;

program tim_so_am;

uses crt;

var i : integer;

a : array [1..100] of real;

begin

clrscr;

writeln('10 so do la: ');

for i:=1 to 10 do begin

write('So thu ',i); readln(a[i]);

for i:= 1 to 10 do if a[i]<0 then write('Cac so am là: ',a[i]:5:2);

readln

end.

program bien_mang;

uses crt;

var i, n, s : integer;

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

begin

clrscr;

write('So phan tu la: '); readln(n);

s:=0;

for i:=1 to n do begin

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

if a[i] mod 2 = 0 then s:=s+1;

end;

for i:=1 to n do writeln('Các số vừa nhập là :',a[i]);

writeln('Tong cac so chan la',s);

readln;

end.

program tinhtong;

uses crt;

var i, s, n : integer;

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

begin

clrscr;

write('So thu n la: '); readln(n);

s:=0

for i:=1 to n do begin

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

s:=s+a[i]; end;

writeln('Tong cac so do la: ',s);

readln

end.

6.a sai vì sau do có dấu ;

==> sửa lại: for i := 1 to 10 do write(i:5);

6.b sai vì chỉ số đầu lớn hơn chỉ số cuối (100>10) và chỗ gán cho x thế dấu :

==> sửa lại: for i:=10 tờ 100 đô x:=x-i;

6.c sai vì to viết liền với số 200

==> sữa lại: for i:= 100 tờ 200 độ i:=i+5;

6.d đúng

6.d2 thừa i:=0 và còn ko cách chỗ to và 105

sử lại: var n, i:real;

begin n:=0; for i:=5 to 105 do n:=n+1; end.

1/

program chia_het;

uses crt;

var n, i, s: integer;

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

begin

clrscr;

write('Cac so can nhap la: n = '); readln(n); s:=0

for i:=1 to n do begin

write('So thu ',i,' la:'); readln(a[i]);

if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then s:=s+1; end;

writeln('Cac so chia het cho 5 va 2 la: ',s);

readln

end.

n_Al=2.7:27=0,1 (mol)

m_HCl =(219x20):100%=43,8 (g)

n_{HCl =}43,8:36,5=1,2 (mol)

a) PTHH:

2Al + 6HCl -----> 2AlCl₃ + 3 H₂

Đề 0,1 1,2 (mol)

P/ứ 0,1 0,3 0,1 0,15 (mol)

V_H2= 0,15x22,4=3,36 (l);

b) m_AlCl3=0,1x136,5=13,65 (g)

c) n_CuO= 8:(64+16)=0,1 (mol)

CuO + H₂ ---t^o---> H₂O + Cu

đề 0,1 0,15 (mol)

p/ứ 0,1 0,1 0,1 (mol)

Khôi lượng của Cu với hiệu suất 80% là:

m_Cu=( (64 x 0,1) x 80%) : 100%= 5,12 (g)

program tinhtong;

uses crt;

var i, n, s: integer;

begin

clrscr;

Write('N so tu nhien dau tien la: '); readln(n);

s:=0; i:=1;

while i<=n do begin

s:=s+i; i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.