1. х=40, у=10
2. х=20, у=20
3. х=50, у=20
4. х=56, у=30
5. х=60, у=28
6. х=60, у=40
7. х=70, у=40
8. х=70, у=50
9. х=80, у=50
10.х=80, у=40
11х=90, у=40
12. х=90, у=28
13.х=100, у=28
14. х=100, у=20
15. х=110, у=20
16. х=110, у=10
17. х=40, у=10
<span>var n,a,b,c:integer;
begin
readln(n);
if n=1 then write('true')
else
begin
a:=1;
b:=1;
c:=0;
while c<n do
begin
c:=a+b;
a:=b;
b:=c;
end;
end;
if c=n then write('true')
else write('false');
end.</span>
Моя папка - это хобби, школа, музыка, картинки, видеозаписи.
1)переводчик лишнее
2)антивирусная программа лишнее