Câu 1. Viết chương trình tính trung bình cộng 2 số nguyên a, b nhập từ bàn phím kết quả làm tròn 2 chữ số thập phân Câu 2. Viết chương trình in ra các số chính phương trong dãy 1..N(n<=100, N nhập từ bàn phím)

Câu 1 :

program sksk;

uses crt;

var a, b : integer;

      tb : real;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

tb := (a + b)/2;

writeln('trung binh cong cua hai so nguyen la :', tb:8:2);

readln

end.

Bài 2 :

program sksk;

uses crt;
var a: array[1.. 100] of integer;  
      n, i, x : integer;
begin
clrscr;
write('so phan tu có trong mang la  ');
readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,' : ');readln(a[i]);
end;
writeln('Cac so chinh phuong co trong mang:');
for i:=1 to n do
begin
x := trunc(sqrt(a[i]));
if sqr(x) = a[i] then
write(a[i]:8 );
end;
readln;
end.