Ответ: 11212
Заменим команды на обратные:
1. раздели на 2
2. прибавь 1
Пойдем от большего числа:
13 на 2 нацело не делится, следовательно:
13 + 1 = 14 (2)
14 на 2 делится нацело, следовательно:
14 / 2 = 7 (1)
7 на 2 нацело не делится , следовательно:
7 + 1 = 8 (2)
8 на 2 делится нацело, следовательно:
8 / 2 = 4 (1)
4 на 2 делится нацело, следовательно:
4 / 2 = 2 (1)
Запишем в прямом порядке с исходными командами:
2*2=4 (1)
4*2=8 (1)
8-1=7 (2)
7*2=14 (1)
14-1=13 (2)
Var a,b,c:real;n,i:integer;beginWrite('Ввидите N='); Readln(n);for i:=1 to N do b:=b+(2*n+1);c:=1;for i:=1 to n do c:=c*(2*n+1);a:=b/c;WritelN('A=',A);end.
Var
a, b, c: integer;
Begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if a >= (b + c) then a:= b + c;
writeln(a);
END.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var k,s:BigInteger;
(k,s):=(2,2); // две травинки и всего две
for var d:=2 to n do begin k:=2*k+1; s+=k end;
Writeln('В день ',n,' принесено травинок: ',k,', всего: ',s)
end.
<u>Примеры</u>
n= 5
В день 5 принесено травинок: 47, всего: 88
n= 30
В день 30 принесено травинок: 1610612735, всего: 3221225439
n= 365
В день 365 принесено травинок: 112730043973143994938695068645888177314032762347599353793949966633546033205501205286257551922468897745532878847, всего: 225460087946287989877390137291776354628065524695198707587899933267092066411002410572515103844937795491065757328
Var
f: Text;
n, s, e: integer;
begin
n := 0;
s := 0;
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
readln(f,e);
n := n + 1;
s := s + e
end;
Close(f);
writeln('В файле ', n, ' чисел; их сумма равна ', s)
end.
Тестовое решение:
В файле 10 чисел; их сумма равна 213
Содержимое файла input.txt:
24
37
14
-6
42
58
3
14
0
27