пейзаж пингвины вот так кажется правильно
1) 0 + 1 = 1
2) 1 + 1 = 2
3) 2 + 1 = 3
4) 3 + 1 = 4
5) 4 * 2 = 8
6) 8 * 2 = 16
7) 16 + 1 = 17
8) 17 + 1 = 18
9) 18 + 1 = 19
10) 19 * 2 = 38
11) 38 * 2 = 76
12) 76 * 2 = 152
13) 152 * 2 = 304
14) 304 * 2 = 608
15) 608 + 1 = 609
16) 609 + 1 = 610
17) 610 + 1 = 611
18) 611 * 2 = 1222
19) 1222 * 2 = 2444
20) 2444 * 2 = 4888
21) 4888 + 1 = 4889
Объяснение:
Гораздо проще подобрать порядок действий, если рассматривать конечное число в двоичной системе счисления:
Все вычисления становятся гораздо проще и нагляднее, ведь для двоичного числа умножение на два -это просто появление справа одного нуля,
а добавление единицы -если справа (т.е. в младшем разряде) был нуль, то станет единица, а если была единица, то станет нуль, а единица перейдёт в следующий разряд (и там повторится тот же выбор).
Таким образом очень легко получить число 4889 этими действиями в двоичной системе. Получить его можно разными комбинациями указанных действий, нужно только лишь продумать действия так, чтобы их число получилось равным 21.
Вот как это выглядит, если показать результаты в двоичном виде (смотри прилагаемую картинку):
1)
Program Pr1;
uses crt;
var stroka:string;
i,k:integer;
Begin
clrscr;
writeln('Vvedite chislo');
readln(stroka);
k:=0;
for i:=length(stroka) downto 1 do if stroka[i]='3' then k:=i;
writeln(k);
end.
2)
Program Pr2;
uses crt;
var stroka:string;
i,k,x,y:integer;
Begin
clrscr;
readln(stroka);
y:=0;
for i:=length(stroka) downto (length(stroka)-1) do begin
val(stroka[i],k,x);
y:=y+k;
end;
writeln(y);
end.
3)
Program Pr2;
uses crt;
var stroka:string;
i,y,k:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do begin
val(stroka[i],y,k);
mas[i]:=y;
end;
k:=0;
for i:=1 to length(stroka) do if mas[i]>k then k:=mas[i];
writeln(k);
end.
4)
Program Pr2;
uses crt;
var stroka,tmp:string;
Begin
clrscr;
readln(stroka); {1-oe predlojenie}
readln(tmp); {2-oe predlojenie}
delete(stroka,1,length(tmp));
stroka:=tmp+stroka;
writeln(stroka);
end.
5)
Program Pr2;
uses crt;
var mas:array[byte] of integer;
i,n,f:integer;
Begin
clrscr;
readln(n);
mas[1]:=1;
mas[2]:=1;
for i:=3 to n do mas[i]:=mas[i-1]+mas[i-2];
writeln(mas[n],' a'); {a}
readln;
for i:=1 to n do write(mas[i],' '); {á}
f:=0; {â}
readln;
for i:=1 to n do f:=f+mas[i];
if f mod 2=0 then writeln('TRUE')
else writeln('FALSE');
end.
пейзаж-3(картинка)
корова-1
пингвины-2
дождевое облако-4