Viết chương trình tính tổng 3 số a,b,c . Trong đó a,b,c nhập từ bàn phím

Bài tập 1: Viết chương trình tính tổng 3 số a, b, c với Pascal

Mã:

program tongabc;

uses crt;

var T, a, b, c:interger;

begin

write('gia tri cua a');

read(a);

write('gia tri cua b');

read(b);

write('gia tri cua c');

read(c);

T:=a+b+c ;

write ('tong ba so a, b, c la':, T);

Readln

End.

Tìm số lớn nhất:

Mã:

program tim _so_lon_nhat;
uses crt;
var a, b, c: integer;
Begin
write ("Nhap so nguyen a = "); readln(a);
write ("Nhap so nguyen b = "); readln(b);
write ("Nhap so nguyen c = "); readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
writeln ("So lon nhat trong 3 so la :",max);
readln;
End. 

Bài tập 2: Viết chương trình tính chu vi, diện tích hình vuông.

Mã:

program cv_hinh_vuong;

uses crt;

var a, cv, dt:interger;

begin

clrscr;

write('nhap do dai a');

readln(a);

cv:= a*4, dt:= a*a.

Write ('Chu vi hinh vuong: ', cv);

Write ('Dien tich hinh vuong la: ', dt) ;

readln

end.