2 câu trả lời
Program baitap;
Uses crt;
Var i,N,dem:integer;
Begin
Clrscr;
Write('N='); Readln(N);
dem:=0;
For i:=1 to N do
If (i mod 2=0) then dem:=dem+1;
Writeln('Cac so chan tu 1 den ',N,' la:',dem);
Readln
End.
uses crt;
var n:longint;
begin
clrscr;
readln(n);
writeln((n - 2) div 2 + 1);
readln;
end.
Câu hỏi trong lớp
Xem thêm
