var
s: string;
begin
readln(s);
write(s.Split(' ')[0], ' ');
foreach s1: string in s.Split(' ') do
if (s1 <> s.Split(' ')[0]) then
write(s1, ' ');
<span>end.</span>
Это можно рассмотреть как: "Для i от 10 до -10 выполнить(делать) S=S+1;
Следовательно посчитав " на пальцах"(так проще), находим, что тело цикла выполнится 21раз(0 тоже число)
Y=(7*3+4)(2*3-2)
y=25*4
y=100
<span>10111,11(двоичное)
</span>10111,11₂ = 1*2⁴ + 0*2³ + 1*2² + 1*2 + 1 + 1*1/2 + 1*1/2² =
= 16 + 4 + 2 + 1 + 0,5 + 0,25 = 23,75₁₀ (десятичное)
<span>
306(восьмеричное)
</span>306₈ = 3*8² + 0*8 + 6 = 192 + 6 = 198₁₀ (десятичное)
<span>3В(шестнадцатеричное)
3В</span>₁₆<span> = 3*16 + 11 = 59</span>₁₀<span> (десятичное)</span>
<span><span>program ggl;
</span>Это название программы
</span><span>var n, i, sum : integer;
</span>Описание переменных
<span>a : array [1..1000] of integer;
</span>Описание массива а (он целочиленный, в интервале от 1 до 1000)
<span>begin readln (n);
</span>Начало программы, запрос значение переменной n
<span> sum := 0;
</span>Присвоение переменной sum значение 0
begin readln (n);
sum := 0;
<span> for i := 1 to n do begin </span>
<span> a[i] := random (100); </span>
write (a[i], ' ');
<span> sum := sum + a[i]; </span>
<span>end; </span>
begin характеризует начало новой подпрограммы. Она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран.<span>
</span>После идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). Подпрограмма кончается.
writeln;
write (sum / n);
<span>end.
</span>Вывод значения деления переменной sum на переменную n. Конец всей программы.
