Bài tập 6,7,8 tr 51 sgk tin 11

Bài tập số 6:
Program GaCho;
Uses crt;
Var ga,cho:integer;
Begin
Clrscr;
ga:=1;
cho:=36-ga;
While ga*2+cho*4<>100 do
begin
ga:=ga+1;
cho:=36-ga;
end;
Writeln(`Ga : `,ga:3);
Write(`Cho: `,cho:3);
Readln
End.

Bài tập số 7:
PROGRAM BAI_TAP_6; USES CRT; VAR tcha, tcon, nam: Byte; BEGIN CLRSCR; Write(`Moi ban cho biet tuoi hien tai cua cha:`); Readln(tcha); Write(`Moi ban cho biet tuoi hien tai cua con:`); Readln(tcon); nam:=0; WHILE tcha<>2*tcon DO                     Begin                     tcha:= tcha+1;                     tcon:= tcon+1;                     nam:= nam+1;                     End;
Writeln(`Sau :`, nam, `   nam nua thi tuoi cha gap doi lan tuoi con`);
Readln END.

Bài tập số 8:
PROGRAM BAI_TAP_8; USES CRT; VAR thang: integer;  A,B:real; BEGIN CLRSCR; Write(`Moi ban cho biet so tien von luc dau:`); Readln(A); Write(`Moi ban cho biet so tien muon linh sau khi goi Ngan hang:`); Readln(B); thang:=0; WHILE AWriteln(`Sau :`, thang, ` thang ta se co so tien la `, B, ` dong`);
Readln END.