bai 1 bai 1 vua ga vua cho bo lai cho tron ba muoi sau con mot tram chan chan giai var xy byte begin for x 1 to 35 do for y 1 to 35 do if 2x4y100 and xy36 then begin writeln‘so ga la’x
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (13.48 KB, 2 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
Bai 1:
Vua ga vua cho
Bo lai cho tron
Ba muoi sau con
Mot tram chan chan
Giai
Var x,y:byte;
Begin
For x:=1 to 35 do
For y:=1 to 35 do
If (2*x+4*y=100) and x+y=36 then
Begin
Writeln(‘so ga la’,x);
Writeln(‘so cho la’,y);
End;
Readln;
End.
Bai 2:Tinh x^y voi x,y nguyen duong nhap tu ban phim
Giai
Var x,y,i:byte;
z:longint;
Begin
Write(‘x,y=,);readln(x,y);
Z:=1;
If y=o then writeln(‘z=’,1);
Else if y>0 then
Begin
For i:=1 to y do z:=z*x;
Writeln(x,’mu’,y,’=’,z);
End;
Readln;
End.
Bai 3:Tim cac so co 3 chu so sao cho tong lap phuong cac chu so =chinh no
Giai
Var a,b,c:byte;
Begin
For a:=1 to 9 do
For b:=0 to 9 do
For c:=1 to 9 do
If a*a*a+b*b*b+c*c*c=100*a+10*b+c thenwriteln(a,b,c);
Readln;
End.
</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
Var i,j:1..100;
Begin
For i:=1 to 100 do
Begin
For j:=1 to i do
If i mod j=0 then dem:=dem+1;
If dem:=2 then writeln(‘cac so nguyen to tu 1 den 100 la’,i)
End;
</div>
<!--links-->
