В-3
О-16
Д-5
О-16
Л-13
А-1
З-9
К-12
А-1
<span>ВОДОЛАЗКА</span>
Ответ вот етот 1а 2б 3б 4г 5б
Если фрагмент, тогда
s:=0;
for i:=1 to 100 do
s:=s+i*i;
Поскольку четность или нечетность числа в любой системе счисления определяется четностью или нечетностью последней цифры в записи числа и искомое число не встречается на этой позиции, оно может быть как четным так и нечетным. Из-за того, что искомое число должно быть максимальным в системе счисления с наименьшим основанием из 33, 34 и 35. Таким числом будет число 32.
В десятичной системе это число будет равно 3*33+2=101
Program maschetinol;
var a:array [1..25] of Integer;
i:Integer;
begin
Write ('Массив: ');
for i:=1 to 25 do
begin
a[i]:=random(51);
write (a[i], ' ');
end;
WriteLn;
Write('Чётные элементы: ');
for i:=1 to 25 do
if a[i] mod 2 = 0 then
Write (a[i],' ');
WriteLn;
Write('Элементы, оканчивающиеся на ноль: ');
for i:=1 to 25 do
if a[i] mod 10 = 0 then
Write(a[i],' ')
end.