1 . Viết công thức in ra màn hình các câu sau : họ tên ; quê quán ; trường lớp
2. Viết công thức nhập vào số a và in ra màn hình kết quả số a .
3 Nhập vào 1 cạnh đáy và chiều cao tương ứng của tam giác . Tính và in màn hình diện tích tam giác .
4. Nhập vào một số nguyên a . In ra màn hình là số chẵn hay lẽ ?
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
1.
program Hj;
uses crt;
begin
clrscr;
writeln(‘ho ten’);
writeln(‘que quan’);
writeln(‘truong lop’);
readln
end.
2.
program Hj;
uses crt;
var a:integer;
begin
clrscr;
writeln(‘hay nhap mot so: ‘); readln(a);
end.
3.
program Hj;
uses crt;
var a,h:integer;
begin
clrscr;
writeln(‘hay nhap chieu cao’);readln(h);
writeln(‘hay nhap canh day’);readln(a);
writeln(‘dien tich tam giac la: ‘,a*h/2)
readln
end.
4.
program Hj;
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;