Ngày thứ 3 vui vẻ với nhiều phần thưởng thú vị :
- CÂU HỎI :
Câu 1 : Viết chương trình in kết quả ra màn hình với n được nhập từ bàn phím 999-997-995-...-n
Câu 2 : Viết chương trình in kết quả ra màn hình biết a được nhập từ bàn phím \(\dfrac{a+\sqrt{3}}{a+\sqrt{6}}\)
Câu 3 : Xác định output , input và thuật toán cho bài toán sau : Tính tổng \(\overline{abcd}=\overline{abc}+\overline{bcd}+\overline{cda}+\overline{dab}\)
__________________________________________________________
- Phần thưởng là 6GP cho bạn trả lời đúng :
+ Câu 1 : 1GP
+ Câu 2 : 2GP
+ Câu 3 : 3GP
- Cần nhà tài trợ ạ ..........
bài 1 là tính à?
var i,n:integer;
S,P:longint;
begin
write('nhap n=');readln(n);
P:=0;
S:=0;
for i:=997 downto n do
begin
S:=S+i;
if n mod 2 = 1 then P:=999-(P+S);
end;
write('ket qua la:',P);
readln
end.
mk tài trợ .
Mk cũng đi thi tin học trẻ nhưng cái này có vẻ max khó ==))
Câu 2 :
program a: integer ;
S: real ;
begin
write('nhap n:'); readln(n);
S:=(a+sqrt(3))/(a+sqrt(6)) ;
write('ket qua la',S); readln
end.
Câu 2:
Program lam_cho_vui;
Uses Crt;
Var a, H : Real;
Begin
Clrscr;
Writeln ('Nhap so a = ');
Readln (a);
H := (a + Sqrt(3))/(a + Sqrt(6));
Writeln ( ' Ket qua cua bieu thuc la = ', H :0:1);
Readln;
End.
Câu 3:
INPUT: Các số \(\overline{abc}\) , \(\overline{bcd}\) , \(\overline{cda}\), \(\overline{dab}\)
OUTPUT: Tính tổng các số trên thành kết quả \(\overline{abcd}\)
Sao có mấy bạn trả lời có mấy chữ cx dc tick vậy ??
Bạn có 26 GP mà tặng tổng cộng hết 6GP thì phí công bạn giải bài để được GP rồi
Câu 2:
var
a:integer;S:real;
Begin
writeln('nhap a:');
readln(a);
S:=(a+sqrt(3))/(a+sqrt(6));
writeln('Thuong la:',S);
readln;
end.
(Hơi trễ, nhưng mình đã cố hết sức rồi).
Câu 1:
Var
n:integer;S: integer; a:integer;
Begin
a:=999;
writeln('Hay nhap n:');
readln(n);
if n mod 2 =0 then
while a>=n do
S:=a-(a-2);
a:=a-2;
else
while a>=(n+1) do
S:=a-(a-2);
a:=a-2;
writeln('Hieu bang:',S);
readln;
end.
