Tìm kiếm:

thạnk các bác nghen ! mình đang cần mấy bài này nha! hihi sắp tới kỳ thi rồi nên đang phải kiếm bài tập để đi nữa á! thank các bác nhiều lắm! hihihi

Trời ơi! mình cũng đang làm bài này nè mà cách giải mệt nghĩ luôn đó! hix hix các bạn có thể giúp mình giải bài này đuợc hay không thế hả! mình đang giải mà thấy nhiều thắc mắc quá trời luôn á! hjhj...

bài này đơn giản bạn có thể quy tất cả về một mảng rồi sắp xếp cũng được vậy! nhưng hơi bị lâu rồi nhưng không bị sai! thuật toán hơi bị tệ!hjhj
Đứa cũng về một mảng có cả số âm cũng không sao cả!...

cái này tớ sẽ sử dụng một hàm kiểm tra số nguyên tố rồi gom tất cả các số nguyên tốt vào một mảng mới! sau đó tim max trong mảng mới đó! hjhjhj

n:=2;dem:= 0;
repeat
i:=2;
while n mod...

2 bài trước thì không giải đâu bạn tự giải nha! dùng vòng lặp for và while thôi!
Bài 3 :
program b3;
uses crt;
var a,b,c,i:byte;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if...

hjhj mình chẳng biết viết bằng ngôn ngữ lập trình đó mình biết ý tưởng mà thôi à! hjhj
có thể tạo một tập hợp các nguyên âm rồi so sánh từng phần tử trong xâu với tập hợp đó, nếu thuộc thì tăng đếm...

program fibonaci;{c/trinh tim so Fibonaci thu n}
uses crt;
var n,i: integer;fi1,fi2,fi3 :longint;
begin
clrscr;
write('nhap so n = ');readln(n);
fi1:=1; fi2:=2; fi3:=fi1 + fi2 ;
...

mình xin đưa ra bài của mình nè!
program amstrong;
uses crt;
var n1,n2:integer;
a,b,c :byte;
i:=byte;
begin
clrscr;
writeln('nhap vao so n1 ,n2 : ');
readln(n1,n2);

bài này đơn giản nè! hjhj mình xin đưa ra cách giải của mình!
program a;
uses crt;
var n:integer;
procedure nhap(var n:integer);
begin
clrscr;
writeln(' Nhap vao 1 so n ');
...

Bạn tình về ơi!! Nếu bạn biết về mảng thì dễ hơn để giải những bài như thế này!! Theo minh 4 bài tập trên nên dùng mảng là tốt nhất coi như những con số là các ký tự sau đó so sánh với các ký tự số...