2)
Program Cvi_Dtich_Hthang;
Var a, b, c, d, h, S, P : Real;
Begin
writeln ('nhap a');
readln (a);
writeln ('nhap b');
readln (b);
writeln ('nhap c');
readln (c);
writeln ('nhap d');
readln (d);
writeln ('nhap h');
readln (h);
P = a + b + c + d
S = (a + b ) * h / 2
writeln ( 'Chu vi cua hinh thang la, P : 6 : 1);
writeln ( 'Dien tich cua hình thang la, S : 6 : 1);
readln;
readln
End.
(Mk ko bt đúng hết toàn bộ ko nhưg mk nghĩa là đúng >90% !! ^^)
(Mk hi vọng bn sẽ bấm tick cho mk! Mk đã cố gắng hết sức dù chỉ 1 câu!!)
Nếu có j thắc mắc thì bình luận bên dưới cho mk nhé! Thank you!! ^o^
1;
program bai1;
uses crt;
var a,b,c:longint;
begin
clrsrc;
write('Nhap so a= ');readln(a);
write('Nhap so b= ');readln(b);
c:=a+b;
writeln(a,'+',b,'= ',c);
readln
end.
ok bạn.............