câu 1:

var x:string

     y:integer

Câu 2:

var a,b:integer

begin

write('hay nhap gia tri cua a')

read(a)

wrietln('hãy nhập giá trị b')

read(b)

t:=a+b

writeln('tông cua a va b la',t)

? đây là toán mà

uses crt;

var n,i,x:integer;

begin

writeln('Nhap so: ');readln(n);

For i:=1 to 9 do writeln(n,'x',i,'=',n*i);

readln

end.

Program Dien_tich_tam_giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln('DIEN TICH TAM GIAC');
Writeln('------------------');
Write('-Nhap so thu nhat: ');
Readln(a);
Write('-Nhap so thu hai : ');
Readln(b);
Write('-Nhap so thu ba : ');
Readln(c);
If (a+b>c) And (b+c>a) And (c+a>b) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(a+b+c);
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('+Dien tich= ',s:10:2);
End
Else
Writeln('+Khong phai la Tam giac');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln((a+b)/2:4:2);

readln;

end.

Mình chỉ viết được pascal được không?

ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó

à có vẻ hơi khó thiệt để ngĩ đã

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.

Tham khảo:

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=0 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

program tinh_tong_chan;

uses crt;

Var i,N,S: integer;

begin

clrscr;

writeln('nhap so n');

readln(N);

S:=0;

i:=1;

while i <= N do

begin

S:=S+i;

i:=i+1;

end;

Writeln('tong la: ',S);

readln;

end.

đây bạn nha