string = input("Nhập vào một xâu kí tự: ")

count = string.count('tiền')

print('Xâu kí tự có ', count, 'từ "tiền"')

Uses crt;

Var m,n,i,s: longint;

Begin clrscr;

Write ('nhap m:'); readln (m);

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

While n <m do

Begin

Write ('nhap lai n:');

Readln (n);

End;

S:=0;

For i:=m to n do

If (i mod 3=0) or (i mod 5=0) then s:=s+i;

Write(s);

Readln;

end.

Chỗ câu lệnh if thì mình dùng if (i mod 3 = 0) and (i mod 5 = 0) nhé em! Không dùng or sẽ bị sai

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

readln(n);

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

readln(k);

dem:=0;

for i:=1 to n do

if a[i]=k then inc(dem);

write(dem);

readln;

end.

Thuật toán liệt kê:

Bước 1: Nhập N

Bước 2: T←1; i←1;

Bước 3: Kiếm tra nếu i>n thì in kết quả T và kết thúc

Bước 4: T←T*i;

Bước 5: i←i+1, quay lại bước 3

Bai 2:

uses crt;

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

i,n,t,nn:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

for i:=1 to n do

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

write(nn);

readln;

end.

Var a,b,c,d:integer;

Begin

Writeln('Cac so can tim la');

For a:=1 to 9 do

For b:=0 to 9 do

For c:=0 to 9 do

For d:=0 to 9 do

If a + b + c + d = 20 then

writeln(a,b,c,d);

readln;

End.

Var i,s:longint;

Begin

For i:=1 to 999 do

If i mod 2 <> 0 then

Begin

Write(i:6);

s:=s+i;

End;

Writeln;

Write('Tong la ',s);

Readln;

End.

Var s,i:integer;

Begin

s:=0;

i:=0;

While S<1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n la ',i);

Readln;

End.

camonn ạ

Bài 1

Var s,i:integer;

tb:real;

Begin

Write('Nhap n = ');readln(n);

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Bài 2

Var i,n,souoc:integer;

Begin

Write('Nhap n = ');readln(n);

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.