uses crt;

var n,i,s:integer;

begin

clrscr;

n:=1;

s:=0;

repeat

s:=s+n;

n:=n+1;

until s>1000;

writeln(n);

readln;

end.

Câu 4: 

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i,dem;

char x;

int main()

{

getline(cin,st);

d=st.length();

cout<<st<<endl;

cin>>x;

dem=0;

for (i=0; i<=d-1; i++) if (st[i]==x) dem++;

cout<<dem;

return 0;

}

Câu 4: 

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i,dem;

char x;

int main()

{

getline(cin,st);

d=st.length();

cout<<st<<endl;

cin>>x;

dem=0;

for (i=0; i<=d-1; i++) if (st[i]==x) dem++;

cout<<dem;

return 0;

}

Uses crt;

var

begin clrscr;

k:=1;

s:=0;

while (s<700) do begin

k:=k+1

s:=s+k;

end;

writeln(s,' ',k);

readln;

end; 

uses crt;

var a:array[1..100]of integer;

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

ln:=a[1];

nn:=a[1];

t:=0;

for i:=1 to n do 

begin

if ln<a[i] then ln:=a[i];

if nn>a[i] then nn:=a[i];

t:=t+a[i];

end;

writeln(ln);

writeln(nn);

writeln(t);

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

var n,i,max,min,s: integer;

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

begin

readln(n);

for i:=1 to n do begin

readln(a[i]);

s:=s+a[i];

end;

max:=a[1]; min:=a[1];

for i:=2 to n do begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('MAX=',max,'  | MIN=',min);

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;

write('Tong = ',s);

readln

end.

uses crt;

var t,n:integer;

begin

clrscr;

t:=0;

n:=0;

while t<=10 do 

  begin

n:=n+1;

t:=t+n;

end;

writeln(t);

readln;

end.

Thao khảm:

Người mà em yêu quý nhất trong gia đình chính là ông nội. Ông là tấm gương sáng ngời để em học tập.

Ông nội em năm nay đã gần tám mươi tuổi. Tuy thế, ông vẫn thật khỏe mạnh. Ông có dáng người đậm và chắc, bước đi điềm tĩnh, khoan thai. Râu tóc của ông đã bạc trắng nhưng da dẻ vẫn hồng hào. Đôi mắt của ông không còn màu đen trong tinh anh mà đã thoáng màu mờ đục, khi đọc sách, ông thường phải dùng đến cặp kính lão cất cẩn thận trong hộp. Râu ông mọc dài đến ngang ngực.

Đôi lúc, hình ảnh của ông khiến em nghĩ đến một ông tiên, ông Bụt nào đó trong cổ tích. Đặc biệt, hai cánh tay của ông còn khá săn chắc, thỉnh thoảng, ông vẫn xách những xô nước mà em phải ì ạch mãi không di chuyển được. Nhìn ông đánh đàn trâu ra bờ mương chăn không ai tin được tuổi ông đã đến vậy. Ông cũng rất ít ốm đau, các cô bác hàng xóm thường khen: “Ông thật có phúc!”. Riêng em, em hiểu rõ tại sao sức khỏe của ông lại tốt như thế. Ấy là vì ông rất chăm tập thể dục. Sáng sáng, ông dậy sớm làm vệ sinh cá nhân rồi lên tầng thượng tập tạ. Buổi chiều, ông lại gọi em, hai ông cháu chạy bộ trong sân trường tiểu học. Thêm nữa còn là chế độ ăn uống của ông. Mồi bữa ông ăn nhất định một số lượng cơm, ăn nhiều rau và mỗi ngày uống một chén rượu nhỏ. Điều em khâm phục nhất là ông giữ chế độ tập luyện và ăn uống rất điều độ. Em học được ở ông tính tự giác và kỉ luật cao: theo tấm gương ấy của ông, em học bài và làm bài đều đặn, cố gắng không để những việc riêng làm ảnh hưởng đến chuyện học tập.

Không chỉ vậy, ông còn là một tấm gương mẫu mực về lối sống trong gia đình khiến mọi người yêu quý, kính trọng. Ông sống tiết kiệm, ngăn nắp và điềm tĩnh. Phòng riêng của ông lúc nào cũng gọn gàng, sạch sẽ. Ông thường tự quét dọn, sắp xếp lấy phòng mình ít khi phiền đến con cháu. Mỗi dịp lễ Tết, bố mẹ em lại muốn mua biếu ông quần áo hoặc bộ cần câu mới nhưng ông đều từ chối nói rằng để cho cu Tít (là em) ăn học. Đôi khi, bố mẹ em có điều gì to tiếng với nhau, ông lại nhẹ nhàng hòa giải, nhắc nhở rằng phải biết lấy hòa thuận trong gia đình làm trọng, tránh cãi vã lẫn nhau ảnh hưởng không tốt đến con cái.

Riêng em, từ nhỏ đến lớn, em giống như cái bóng nhỏ loắt choắt theo chân ông. Với em, ông vừa cưng chiều vừa nghiêm khắc dạy dỗ. Được ai biếu tặng tiền, ông đều gọi bố mẹ em đến nói rằng ông cho thăng Tít, dặn bố mẹ em phải biết cách tiêu cho con. Lương hưu hàng tháng, ông cũng trích ra để khi thì mua cho em sách vở, lúc lại mua quà hay mua quần áo mới cho em. Những lúc rảnh rỗi, ông còn dạy em làm điều, làm đèn Trung thu, câu cá… Thậm chí, ông còn làm “quân sư” cho em khi em gặp những chuyện không hay, khó xử nữa. Bởi thế, với em, nhắc đến ông là nhắc đến bao niềm yêu thương đầy thiêng liêng, xúc động.

Ông nội thật là một cây cao bóng cả tỏa mát trên mái nhà của gia đình em. Yêu quý ông, em ước ông sống thật lâu để em được học từ ông những điều hay điều đẹp. Em cũng tự nhủ phải cố gắng học thật giỏi để làm ông vui lòng!

program tim_tong;

uses crt;

var x,i,tong:longint;

begin

clrscr;

tong:=0;i:=1;

while tong<=3500 do

begin

write('x',i,'=');readln(x);

tong:=tong+x;

i:=i+1;

end;

write('tong cac so tren la:',tong);

readln;

end.