Đáp án và bước giải I
- PeakingBlinder
- 19/11/2022
uses Crt;
var n,i,j,t,x,y,d:longint;
Begin
clrscr;
d:=0;
write('Nhap n = ');readln(n);
if n mod 5=0 then write('Can mang ',n div 5,' goi duong')
else
begin
for i:=n div 5 downto 0 do
begin
for j:=n div 3 downto 0 do
begin if (i*5+j*3=n) then
begin
t:=i+j;
x:=i;
y:=j;
d:=d+1;
break;
end;
end;
if d=1 then break;
end;
if t<>0 then write(t) else write('-1');
end;
readln
I
- PeakingBlinder
- 19/11/2022
uses Crt;
var n,i,j,t,x,y,d:longint;
Begin
clrscr;
d:=0;
write('Nhap n = ');readln(n);
if n mod 5=0 then write('Can mang ',n div 5,' goi duong')
else
begin
for i:=n div 5 downto 0 do
begin
for j:=n div 3 downto 0 do
begin if (i*5+j*3=n) then
begin
t:=i+j;
x:=i;
y:=j;
d:=d+1;
break;
end;
end;
if d=1 then break;
end;
if t<>0 then write(t) else write('-1');
end;
readlnI
- PeakingBlinder
- 19/11/2022
uses Crt;
var n,i,j,t,x,y,d:longint;
Begin
clrscr;
d:=0;
write('Nhap n = ');readln(n);
if n mod 5=0 then write('Can mang ',n div 5,' goi duong')
else
begin
for i:=n div 5 downto 0 do
begin
for j:=n div 3 downto 0 do
begin if (i*5+j*3=n) then
begin
t:=i+j;
x:=i;
y:=j;
d:=d+1;
break;
end;
end;
if d=1 then break;
end;
if t<>0 then write(t) else write('-1');
end;
readln
I
- PeakingBlinder
- 19/11/2022
uses Crt;
var n,i,j,t,x,y,d:longint;
Begin
clrscr;
d:=0;
write('Nhap n = ');readln(n);
if n mod 5=0 then write('Can mang ',n div 5,' goi duong')
else
begin
for i:=n div 5 downto 0 do
begin
for j:=n div 3 downto 0 do
begin if (i*5+j*3=n) then
begin
t:=i+j;
x:=i;
y:=j;
d:=d+1;
break;
end;
end;
if d=1 then break;
end;
if t<>0 then write(t) else write('-1');
end;
readln