solomonking

Tận trong huyện cơ, Bảo Lâm, xa xôi nhất tỉnh, cậu ở đâu?

+ hí hí hí

Bài 2:

program bai2;
var i,n,soluongsole,soluongsochan,min,csmin:integer;
a :array;
begin
write('Nhap so luong cac so:');readln(n);
for i:=1 to n do
begin
write('Nhap so' thu' ', i); readln(a);
end;
soluongsole:=0;
soluongsochan:=0;
for i:=1 to n do
if a mod 2 = 1 then soluongsole:=soluongsole + 1 ;
writeln('So luong so le la: ', soluongsole);
if a mod 2 = 0 then soluongsochan:=soluongsochan + 1;
writeln('So luong so chan la: ', soluongsochan);
min:= a
csmin:= 1
for i:= 1 to n do
if a < min then
begin
min := a;
csmin:= i;
end;
writeln('Gia tri nho nhat la: ', min);
writeln('Vi tri cua no la: ', csmin);
readln
end.

Mình thử giúp bạn tí ko chắc là đúng hoàn toàn nhưng hi vọng là giúp đỡ được phần nào

Bài 1

program bai1;
var xau: string;
i,x,dem: integer;
begin
write ('Nhap xau:'); readln(xau);
x:=length(xau);
writeln('Do dai cua xau la: ',x); { tìm độ dài xâu}
for i:= length(xau) downto 1 do
write(xau); { viết ngược xâu}
for i:=1 to length(xau) do
xau := upcase(xau);
write(xau); {viết hoa xâu}
dem:=0
for i:=1 to length(xau) do
if xau = 'A' then dem := dem + 1;
write('So lan xuat hien ki tu A la: ', dem); {đếm số lần xuất hiện kí tự A trong xâu}
readln
end.

thx bạn nha

http://forum.gamevn.com/showpost.php?p=17786472
bạn ơi cho mình xin cái tên với, thx "D

awww con hàng blade ............................

fuk fuk fuk

huu a iu ?

cho hỏi cái fim trong lớp học của Aoi tên j thế

Thế đi SH à

Nhà có vespa à =DDDDDDDDDDDDD

Cao Bằng à

tks

http://photos-d.ak.fbcdn.net/hphotos-ak-snc3/hs401.snc3/24363_101357293234014_100000792327918_34922_7293780_n.jpg

Mình hỏi chút : cái hình lấyở đâu đây :-?, tỉnh nào nhỉ

cho mình info em kia đc ko

cậu có key aika hả. cho mình 1 key đc hem ^^

Này cậu,có cách nào quay QCMM đc AK-47 sil ko chỉ mình với.

blade dạo này rãnh chơi lại CF à

blade còn clone ko send ta với
nick main mi có chi đâu

YM là phongvanly_rapvn
ở sign có rồi mà ko nhìn kĩ