Trên Scratch đây nhé bạn:

Dãy Fibonacci trên Scratch

program fibonaci;

uses crt;

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

n,i,j:integer;

begin

clrscr;

write('n='); readln(n);

f[1]:=1;

f[2]:=1;

i:=2;

repeat

inc(i);

f[i]:=f[i-1]+f[i-2];

until i=n;

writeln(n,' so fibonaci dau tien la: ');

for i:=1 to n do

write(f[i]:4);

readln;

end.

Program HOC24;

var i,n,k,d: integer;

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

begin

readln(n,k);

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

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

Bạn kham khảo bài của mình nhé!

Program nhap_so_n;

Uses crt;

Var i,n,s:integer;

Begin clrscr;

Write('Nhap so n= ');Readln(n);

S:=0;

For i:=1 to n do

If i mod 2 = 0 do S:=S+i;

Writeln;

Write('tong cac so chan la ',S);

Readln;

End.

Mình chúc bạn học tốt!

def is_prime(num):

 """Kiểm tra xem một số có phải là số nguyên tố hay không."""

 if num <= 1:

  return False

 for i in range(2, int(num**0.5) + 1):

  if num % i == 0:

   return False

 return True

def print_prime_numbers(n):

 """In ra n số nguyên tố đầu tiên."""

 count = 0

 num = 2

 while count < n:

  if is_prime(num):

   print(num)

   count += 1

  num += 1

# Số nguyên n cần in ra dãy số nguyên tố đầu tiên

n = int(input())

# Gọi hàm in ra dãy số nguyên tố

print_prime_numbers(n)

#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
    freopen("fibonacci.inp","r",stdin);
    freopen("fibonacci.out","w",stdout);
    cin>>n;
    double c5=sqrt(5);
    cout<<fixed<<setprecision(0)<<((1/c5)*(pow((1+c5)/2,n)-pow((1-c5)/2,n)));
    return 0;
}

#include <stdio.h>

int main(){

    int n;

    scanf("%d",&n);

    long t=0; int i,j;

    for (i=2; i<=n; i++){

        int c=0;

        for (j=2; j<i; j++)

            if (i%j==0) c++;

        if (c==0) t=t+i;

        }

printf("%d",t);

return 0;

}

Bạn trình bày lại đề bài rõ hơn nha, đề đọc rất khó hiểu ấy.

Var s,n,i,so:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i)readln(so);

If so mod 2 = 0 then s:=s+so;

End;

Write('Tong cac so chan la ',s);

Readln;

End.

Program HOC24;

var i,n,t: integer;

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

begin

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

for i:=1 to n do if i=n then readln(a[i]) else read(a[i]);

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chia het cho 2 la: ',t);

readln

end.

Câu 3: 

#include <bits/stdc++.h>

using namespace std;

string a[1000];

int n,i,dem;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>a[i];

if (a[i]=='a') dem++;

}

cout<<dem;

return 0;

}