Câu 1:

uses crt;

var k,i:integer;

begin

clrscr;

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

for i:=1 to k do

write(i:4);

readln;

end.

Câu 2:

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Tong cac gia tri cua day la: ',t);

readln;

end.

uses crt;

var

a,b: integer;

begin

clrscr;

write('Nhap so thu nhat: ');readln(a);

write('Nhap so thu hai: ');readln(b);

writeln('Tong ',a,' va ',b,' la: ',a+b);

readln

end.

Câu 1:

Var

cv,s,a:integer;

begin

write('nhap vao canh hinh vuong:');readln(a);

s:=a*a;

cv:=a*4;

Writeln('chu vi hinh vuong la:',cv);

WRiteln('dien tich hinh vuong la:',s);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long n,x,t;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n/=10;

}

cout<<t;

return 0;

}

Var t,n:integer;

begin

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

while n div 10 <> 0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la ',t);

readln;

end.

uses crt;

var a:array[1..35]of real;

i,n:integer;

begin

clrscr;

n:=35;

for i:=1 to n do 

  begin

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

end;

for i:=1 to 35 do 

  writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long nn,i,x,n;

int main()

{

cin>>n;

nn=LLONG_MAX;

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

{

cin>>x;

nn=min(nn,x);

}

cout<<nn;

return 0;

}

Mình viết phần thân thôi nha

n khai báo là interger

n:=0;

While n<>100 do

 Begin

 Write(n,' ');

 inc(n);

 end;

PROGRAM LOSER;
USES crt;
VAR  
  i:Bytbe;
BEGIN
 clrssr ();
 i:=1;
 while i <100 do
 BEGIN
 write('',i);
 i:=i+1;
 End;
Readln;
END.

( uy tín chạy được em nha)