Ngày đầu tuần vui vẻ :
- Cũng không có gì thay đổi , câu hỏi sẽ hỏi về tin
C1: Viết chương trình in kết quả ra màn hình : S=(1+3+5+...+99)+(2+4+6+...+100)
C2: Viết chương trình in kết quả ra màn hình T=\(a+\dfrac{\sqrt{x-a}}{\sqrt{a-x}}\) với a,x là số nguyên dương được nhập từ bàn phím
C3: Viết chương trình in ước của 102 ra màn hình
Phần thưởng như sau :
C1: 1GP
C2: 1GP
C3: 3GP
Lưu ý : Phần thưởng sẽ được trao đầy đủ , các bạn trả lời xong có thể trả lời đủ lượng phần thưởng để được tặng
program cau3;
var i:integer;
begin
write('cac uoc cua 102 la:');
for i:=1 to 102 do if 102 mod i = 0 then write(' ',i);
readln
end.
program c2;
var T,a,x : integer ;
Begin
write('nhap gia tri cua a:'); readln(a);
write('nhap gia tri cua x'); readln(x);
T:=a+sqrt(x-a)/sqrt(a-x) ;
write('Ket qua T=',T);
readln
end.