Sau đây là bài giải kì 1 - bài giải của bạn Nguyễn Phạm Hồng Thanh 10VL
======================================================
uses crt;
var n,m,i,j:integer;
begin
clrscr;
write('So con vat va so chan phai la cac so tu nhien!');writeln;
write('Nhap so con vat va so chan cach nhau mot khoang trang : ');
readln(n,m);
if n=0 then write('Khong con ga va khong con cho!')
else
begin
if (m mod 2<>0) or (m4*n) then write('Ban da nhap sai!')
else
begin
i:=n*4;
j:=i-m;
write('So cho la : ',j div 2,' con.');writeln;
write('So ga la : ',n-(j div 2),' con.');
end;
end;
readln;
end.
==============================================================
======================================================
uses crt;
var n,m,i,j:integer;
begin
clrscr;
write('So con vat va so chan phai la cac so tu nhien!');writeln;
write('Nhap so con vat va so chan cach nhau mot khoang trang : ');
readln(n,m);
if n=0 then write('Khong con ga va khong con cho!')
else
begin
if (m mod 2<>0) or (m
(*thiếu đk m nhỏ hơn n hay m lơn hơn 4n*)
else
begin
i:=n*4;
j:=i-m;
write('So cho la : ',j div 2,' con.');writeln;
write('So ga la : ',n-(j div 2),' con.');
end;
end;
readln;
end.
==============================================================
Được sửa bởi IT man ngày Mon Oct 27, 2008 1:23 pm; sửa lần 3. (Reason for editing : IT man mạo muội Edit lại chút - chắc ông thầy copy paste lộn rùi)