МНЕ ПОСЛЕЗАВТРА СДАВАТЬ​

Задание 1:

beginvar n := 0;while (not TryRead(n,'Введите количество чисел:')) or (n<0) do Writeln('неверный ввод');Writeln; if n=0 then Write('Чисел нет') else begin var a := ReadArrInteger('Введите числа:',n); Println('Сумма:',a.Sum); Println('Произведение:',a.Product); end end.

Задание 2:

uses GraphABC, ABCObjects; beginWindow.SetSize(300,200); var r1 := new RectangleABC(0,0,Window.Width,Window.Height div 2); var r2 := new RectangleABC(0,Window.Height div 2,Window.Width,Window.Height div 2); OnKeyPress += (c:char) -> begin r1.Text:=c; r2.Number:=Ord(c) end; end.

Задание 3:

beginWriteln(' I: X:');SeqGen(10,x->Random(0,20)*5).Numerate.PrintLines(x->Format('{0,2}  {1}',x[0],x[1])) end.

Примеры работ:

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.

121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.

Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза. 
Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления.
Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков.
Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2.
Остаётся число 6. Проверим

49/6=8 |1
8/6 = 1 |2
1/6=0 |1

121(6)