1.
uses crt;
begin
clrscr;
writeln('ho ten');
writeln('que quan');
writeln('truong lop');
readln;
end.
2.
uses crt;
var a:integer;
begin
clrscr;
writeln('hay nhap mot so: '); readln(a);
writeln ('so a la: ',a);
end.
3.
uses crt;
var a,h:integer;
s:real;
begin
clrscr;
writeln('hay nhap chieu cao: ');readln(h);
writeln('hay nhap canh day: ');readln(a);
s:=a*h/2;
writeln('dien tich tam giac la: ',s:1:2);
readln;
end.
4.
uses crt;
var a:integer;
begin
clrscr;
writeln('nhap a: '); readln(a);
if a mod 2=0 then writeln('a la so chan') else writeln('a la so le');
readln;
end.
câu trả lời kia sai rồi nghe
câu trả lời mình đúng 1000000000000000000% luôn