Viết chương trình nhập từ bàn phím số học sinh nam và số học sinh nữ . In ra màn hình kết quả so sánh của nam và nữ (nếu nhiều hơn thì nhiều hơn bao nhiêu)
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
2 tháng 11 2021
#include <bits/stdc++.h>
using namespace std;
int n,k,a,b;
int main()
{
cin>>n>>k;
a=(n+k)/2;
b=(n-k)/2;
cout<<"So hoc sinh nam la: "<<a;
cout<<"\nSo hoc sinh nu la: "<<b;
Return 0;
}
7 tháng 5 2023
program TinhTBCTimSoNT;
var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;
function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;
begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);
// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;
// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;
// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.
27 tháng 12 2015
Số học sinh cả lớp là
\(12+18=30\)(bạn)
Số học sinh nam chiếm số % là
\(12:30\times100=40\left(\%\right)\)
Số học sinh nữ chiếm số % là
\(100-40=60\left(\%\right)\)
Số học sinh nữ hơn số học sinh nam số % là
\(60-40=20\left(\%\right)\)
Nếu thấy mình làm đúng thì tick nha bạn,cảm ơn.
12 tháng 9 2018
Bài giải
Số học sinh của lớp đó là : 18 + 12 = 30 ( học sinh )
Tỉ số phần trăm giữa số học sinh nam so với cả lớp là : 12 : 30 x 100 = 40 ( % )
Đáp số :................
hok tốt
NH
3 tháng 5 2021
Uses crt;
Var i,n:integer;
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap so hoc sinh: ');readln(n);
Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');
For i:=1 to n do
Begin
Write('Hoc sinh thu ',i,' : ');
readln(a[i]);
End;
Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');
For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);
readln;
End.
var a,b,C : integer ;
begin
wirte('nhap so hoc sinh nam'); readln(a);
wirte('nhap so hoc sinh nu'); readln(b);
If a>b then writeln('nam nhieu hon nu') else writeln('nu nhieu hon nam');
begin
C:=a-b;
C:=b-a
end;
write('hon nhau so ban la',C);
readln
end.
program bai1;
var x,y:longint;
begin
write('So hs nam: ');readln(x);
write('So hs nu: ');realn(y);
if x<y then write('Nam it hon nu (it hon ',y-x,' hs')
else if x>y then write('Nam nhieu hon nu (nhieu hon ',x-y,' hs')
else if x=y then write('Nam=nu ');
readln
end.