lớp em có n học sinh, số nam nhiều hơn số nữ là k học sinh. hỏi em lớp có bao nhiêu học sinh nam, bao nhiêu học sinh nữ. hãy viết chương trình giải toán trên với n va k được nhập vào lúc chạy chương trình
lớp em có n học sinh, số nam nhiều hơn số nữ là k học sinh. hỏi em lớp có bao nhiêu học sinh nam, bao nhiêu học sinh nữ. hãy viết chương trình giải toán trên với n va k được nhập vào lúc chạy chương trình
uses crt;
var n, k, hsnam, hsnu: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
write(‘Nhap k = ‘); readln(k);
hsnam:=(n+k)*2;
hsnu:=(n-k)*2;
writeln(‘So hoc sinh nam la: ‘, hsnam);
writeln(‘So hoc sinh nu la: ‘, hsnu);
readln
end.
Uses crt;
Var n,k:longint;
Begin
Write(‘nhap n va k ‘);readln(n,k)
If (n+k)mod 2 =0 then begin
Writeln(‘nam= ‘(n+k)div 2);
Writeln(‘nu= ‘n-(n+k)div 2);
End else Writeln(‘khong tim duoc’);
Readln
End.