Đề thiếu?

var diem_toan, diem_li, diem_hoa : array[1..10] of real ;

Tham Khảo :

uses crt;

var a,b,i:integer;

begin

clrscr;

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

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

if a<b then

begin

for i:=1 to a do

if (a mod i=0) and (b mod i=0) then write(i:4);

end

else begin

for i:=1 to b do

if (a mod i=0) and (b mod i=0) then write(i:4);

end;

readln;

end.

Tham khảo

uses crt;

var diem: array[1..100] of real;

i,n: integer;

begin

clrscr;

write ('Nhap do dai mang diem: ');  readln (n);

for i:=1 to n do

begin

write ('Nhap diem cua hoc sinh thu ',i,': ');  readln (diem[i]);

end;

writeln ('Xuat mang diem: ');

for i:=1 to n do writeln ('Diem cua hoc sinh thu ',i,': ',diem[i]:1:2);

readln;

end.

                                                                                             BG

                                                      canh cai ao ban dau la : 

                                                            192 : 4 = 48 ( m )

                                                       dien tich ban dau la :

                                                            48 x 48 = 23

04 

Lập bảng sau :

Vậy : Giá trị S là 10.

Diện tích tăng thêm là diện tích 4 hình chữ nhật

Diện tích một hình: 192 : 4 = 48 (m2)

Cạnh còn lại của hình chữ nhật này hay cạnh

cái ao hình vuông lúc đầu: 48 : 4 = 12 (m)

Diện tích cái ao lúc đầu: 12 x 12 = 144 (m²)

Đáp số: 144m²

while do

x=6

X=6