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.
C3:
Program C3;
Var
i:interger;
Begin
Writeln('Cac uoc cua 102 la:');
For i:=1 to sqrt(102) do
if 102 mod i=0 then write('',i:10:5);
readln;
end.
C2: Program C2;
Var S:integer;
Begin
(1+100)*100/2;
readln(S);
writeln('Tong S bang',S);
readln;
end.
Câu 1:
Program cau_1;
Uses crt;
Var S: Integer;
Begin
Clrscr;
S:=(1+3+5+...+99)+(2+4+6+...+100);
Writeln ('Gia tri cua S la:', S);
Readln;
End.
Câu 2:
Program Cau_2;
Uses crt;
Var T, x, a: Integer;
Begin
Clrscr;
Writeln ('Hay nhap gia tri cua a:'); Readln (a);
Writeln ('Hay nhap gia tri cua x:'); Readln (x);
T:=a+(sqrt(x-a)/sqrt(a-x));
Writeln ('Gia tri cua T la:', T);
Readln;
End.
Câu 3:
Program Cau_3;
Uses Crt;
Var i: Integer;
Begin
Clrscr;
For i:=1 to 102 do
Begin
If 102 mod i = 0 then writeln ('Uoc cua 102 la:' i);
End;
Readln;
End.
C1: Program C1;
Var S:integer;
Begin
S:=(1+100)*100/2;
Writeln('Tong la',S:10:5);
readln;
end.
C2: Program C2;
Var
T:real; a,x: integer;
Begin
Writeln('Hay nhap a:');
readln(a);
Writeln('Hay nhap x:');
readln(x);
T:=a+(sqrt(x-a))/(sqrt(a-x));
Writeln('Bieu thuc T bang:',T:10:5);
readln;
end.
trả lời hơi bị trễ mn trả lời hết rồi còn có 1 câu
Câu 1
program dfkjgh;
uses crt;
var i,s:integer;
begin
clrscr;
for i:1 to 100 do s=s+i;
write('gia tri cua s la',' ',s);
readln;
end.
tin giừ ko ai để ý nữa nhỉ .hình như ko có CTV bên tin luôn ấy
tin cũng là 1 môn hay mà
