Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Scratch hay java

program ct;
uses crt;
var dem,n,s,max,t:longint;
begin
        writeln('nhap n:');readln(n);
        while n>0 do begin
                        s:=n mod 10;
                        t:=t+s;
                        if max<s then max:=s;
                        dem:=dem+1;
                        n:=n div 10;
                     end;
        writeln('tong la',t,',','co',' ',dem,' ','chu so',',','chu so lon nhat la:',max);
        readln
end.

bạn xem lại nha mik làm đây nhưng k bt đk

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.

program TongCacSoNguyen;

var
  N, i, soNguyen, tong: integer;

begin
  // Nhập số lượng N
  write('Nhap so luong N: ');
  readln(N);

  // Khởi tạo tổng
  tong := 0;

  // Nhập và tính tổng các số nguyên
  for i := 1 to N do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(soNguyen);
    tong := tong + soNguyen;
  end;

  // In ra màn hình tổng
  writeln('Tong cua cac so nguyen la: ', tong);

  readln;
end.

#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.

#include <bits/stdc++.h>

using namespace std;

string n;

int d,i,t,x;

int main()

{

freopen("tong.inp","r",stdin);

freopen("tong.out","w",stdout);

cin>>st;

d=st.length();

t=0;

for (i=0; i<=d; i++)

{

x=int(st[i])-48;

t=t+x;

}

cout<<t;

return 0;

}

uses crt;

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

i,n,t1,t2,t3:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t1:=0;

for i:=1 to n do 

  if a[i]<0 then t1:=t1+a[i];

writeln('Tong cac so am la: ',t1);

t2:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t2:=t2+a[i];

writeln('Tong cac so chia het cho 2 la: ',t2);

t3:=0;

for i:=1 to n do 

  if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];

writeln('Tong cac so duong chia het cho 3 la: ',t3);

readln;

end.