Đề 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.

ý chị là giờ màn hình máy tính không còn hình của app nào cả ạ?
nếu vậy chị có thể làm thủ công là bấm Win trên bàn phím rồi nhấn giữ chuột trái vào app muốn đưa ra màn hình rồi kéo nó ra thử ạ
hình như cái này cũng có trên mạng á chị :33
em chỉ biết vậy thôi, nếu không giúp được thì em xin lỗi ạ '^'

B

B nhe

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.

Câu 22: 

uses crt;

var n,m,i,t:integer;

begin

clrscr;

readln(n,m);

t:=0;

for i:=n to m do 

  if i mod 4=0 then t:=t+i;

writeln(t);

readln;

end.

ko cs a chị

học sinh ngoan:)

để lmj .-. ?

vào phần tin nhắn của người đó mà hỏi