Ответ:
Объяснение:
На фото представлена диаграмма Эйлера для этой задачи и решение
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
a.Println; sum.Println;
end.
Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108
Наливаем 4 литра =>7 потом с нова 4=>7 и остается один литр в 4
делаем такие же операции и один литр в 7 литров а потом два раза по 4 литра туда и останется ведре 2 литра
а потом такие же операции как 2 литра переливаем их 7 литров а затем полный 4 литра получается 6
1. C)
2. a = 10
b = a * 2 + 3
b = 23
a = 2
b = 33
Ответ : D)
3. Сори не проходил еще (p.s 7 класс)
4. D)
5. D)
6. Сори, этот тоже не проходил
Const
N = 50;
Var
M:array[1..N] of longint;
i,Max:integer;
Begin
Randomize;
WriteLn('Цены(в рублях): ');
Max:=1;
For i:= 1 to N do
Begin
M[i]:=random(9900001)+100000;
WriteLn(M[i]);
if M[i] > M[Max] then Max:=i;
End;
WriteLn('Max = ',M[Max]);
End.