var

a,b:integer;

begin

write(' nhap a va b: '); readln(a,b);

writeln(a);

write(b);

readln;

end.

var

n,n1:temp:integer;

begin

repeat

write(' nhap n : '); readln(n);

if ( n < 32000 ) and ( n > -32000) then break { break là lệnh dừng ngay vòng lập }

until (1=1);

n1:=0;

temp:=n;

while temp > 0 do

begin

n1:= n1 * 10 + temp mod 10;

temp:= temp div 10 ;

end;

if n1=n then write(' doi xung ') else write(' ko doi xung ');

readln;

end.

var a: array[1..10000] of longint; s: longint;

begin

repeat

readln(a[i]);

s:=s+a[i];

until a[i]=0;

write(s);

readln

end.

var

i,d,n:integer;

s:longint;

a:array [1..32000] of integer;

begin

write(' nhap n: '); readln(n);

for i:= 1 to n do

begin

write('a[',i,']= '); readln(a[i]);

inc(d);

if a[i] = 0 then break;

end;

for i:= 1 to d do

s:= s + a[i];

write(' tong so vua nhap la : ',s);

readln;

end.

var

n,i:integer;

begin

write(' nhap n : '); readln(n);

for i:= 1 to n do

begin

write( i ,' ! ');

end;

readln

end.

end;

var

i,n:integer;

begin

write('nhap n : ');

readln(n);

for i:= 1 to n do

write(i,' ! ');

readln

end.

{ cau tren sai roi nha ban }

assign(input,'file.inp'); reset(input);

assign(output,'file.out'); rewrite(output);

readln(m);

read(N);

uses crt;

var s:string; i:integer;

begin

clrscr;

writeln('hay nhap xau');readln(s);

while s[1]=' ' do delete(s,1,1);

while s[length(s)]=' ' do delete(s,length(s),1);

for i:= 1 to length(s) do while (s[i]=' ') and (s[i+1]=' ') do delete(s,i,1) ;

s[1]:=upcase(s[1]);

for i:=1 to length(s) do if s[i-1]=' ' then s[i]:=upcase(s[i]);

writeln(s);

readln;

end.

#include <iostream>

using namespace std;

int main()
{
int n,m[1001],nam=0,nu=0;
cin>>n;
for(int i=1;i<=n;i++)
{
cin>>m[i];
if(m[i]==1)
nam++;
if(m[i]==2)
nu++;
}
cout<<"CO: "<<nam<<" hoc sinh nam"<<endl;
cout<<"CO: "<<nu<<" hoc sinh nu";
return 0;
}