Viết chương trình Pascal tìm 2 số tự nhiên biết:
a, Tổng của chúng là 18, hiệu của chúng bằng 2
b, Tổng của chúng là 20, tỉ số giữa chúng bằng $\frac{1}{3}$
Viết chương trình Pascal tìm 2 số tự nhiên biết:
a, Tổng của chúng là 18, hiệu của chúng bằng 2
b, Tổng của chúng là 20, tỉ số giữa chúng bằng $\frac{1}{3}$
Câu a:
Program cau_a;
uses crt;
var a,b:integer;
begin
clrscr;
for a:=1 to 18 do
begin
b:=18-a;
if a-b=2 then
write(‘so thu nhat la:’,a,’so thu hai la:’,b);
end;
readln;
end.
Câu b:
program cau_c;
uses crt;
var p,q:integer;
begin
clrscr;
for p:= 1 to 20 do
begin
q:= 20-p;
if p=3*q then
writeln(‘so thu nhst la:’,p,’so thu hai la:’,q);
end;
readln;
end.
uses crt;
var x:longint;
begin
clrscr;
for x:=1 to 16 Do
if x+x+2=18 then writeln(x,’ ‘,x+2);
readln
end.
uses crt;
var x:longint;
begin
clrscr;
for x:=1 to 10 Do
if x div (20-x)=3 then
writeln(x,’ ‘,x-20);
readln
end.