John học ở lớp có n bạn .Mỗi bạn nam khi tới lớp bắt tay với các bạn nam đã có trong lớp , nói ‘chào bạn’ với các bạn nữ đã có mặt,bạn nữ cũng trả lời lại ‘chào bạn’.Mỗi bạn nữ khi tới lớp xử sự đơn giản hơn:nói’chào bạn’ với mỗi bạn đã có mặt trong lớp và cũng được đáp lại lời chào như vậy từ mỗi bạn có mặt
Các bạn đến và vào chỗ ngồi của mình lần lượt từng người một ,John tự hỏi không biết bao nhiêu cái bắt tay và bao nhiêu lần câu ‘chào bạn’ đã vang lên trong lớp mình sáng nay
Cho biết số n và m(1<=n<=10^8.Hãy xác định số lần bắt tay và số lần câu'chào bạn' được nói
viết bằng chương trình pascal
program ct;
uses crt;
var n,m,i,bt,cb:integer;
begin clrscr;
write(‘Nhap so ban trong lop: ‘); readln(n);
write(‘Nhap so ban nam trong lop: ‘); readln(m);
bt:=0; cb:=0;
for i:=1 to m do
bt:=bt+(i-1);
for i:=1 to n do
cb:=cb+n*2;
writeln(‘So lan bat tay la: ‘,bt);
writeln(‘So lan cau Chao ban duoc noi la: ‘,cb);
readln;
end;
Học tốt!
program sochan;
uses crt;
var a:array of integer;
:integer;
begin
clrscr;
writeln(so lan bat tay la)
for i:=1 to n do
begin if a[i] mod 2=0
writeln(a[i])
end;
writeln
readln;
end.
mình ko chắc lắm đâu nha 😉