Question

viết chương trình in ra màn hình dòng chữ tên hs _lop và nhập vào 3 số nguyên a,b,c từ bàn phím và thực hiện các công việc sau

a) tính tổng a,b,c

b) tính tích a,b,c

c)cho biết a là số chẵn hay lẻ

Answer 1

uses crt;

var a,b,c,s,x:integer;

begin

clrscr;

write('hs_lop');

writeln('nhap 3 so=');readln(a,b,c);

begin

s:=a+b+c;

writeln('tong la:',s);

x:=a*b*c;

writeln('tich la:',x);

end;

if a mod 2 =0 then writeln(a,'la so chan')

else write('a,'la so le');

readln;

end.

mình ko chắc pn kt thử xem