Я писал программу в Паскале ABC для произвольного промежутка [a:b] и для произвольного количества случайных чисел.

финиша, записывая номер участника цепочкой из нулей и единиц минимальной длины, одинаковой для каждого спортсмена. Каков будет информационный объём сообщения, записанного устройством, после того как промежуточный финиш пройдёт половина лыжников?

А) круговая Б) конусная В) гистограмма Г) график

2) какое действие нельзя выполнить в электронной таблице?
А) поворот Б) редактирование В) форматирование Г) копирование

3) Какую функцию нужно использовать для нахождения суммы диапазона?
А)СЛОЖЕНИЕ Б)СУММ В)МАКС Г)СЧЁТ

А)Хранение
Б)Обработка
В)Ввод
Г)Вывод

кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

a) Тип треугольника, который получается при построении по хаданным сторонам треугольника;

составить программу в паскале abc с условным оперетором ( if,then)
к стиху

Если вас поймала мама
За любымым делом вашим,
Например, за рисованьем
В коридоре на обоях,
Объясните ей, что это
Ваш сюрприз
к Восьмому марта.
Называется картина
Милой мамочки портрет.

{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}

Var Rand: array[1..20] of integer;
I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
​Randomize;
{Заполнение массива случайными числами и вывод их на экран}
​Writeln(‘Массив случайных чисел:’)
​For I:=1 to 10 do
​begin
​ Rand[I]:=random(50); Write(Rand[I]:4)
​End;
​Writeln;
{Ввод Х}
​Write(‘Введите Х:’)); Readln(X);
{Подсчет числа вхождений Х в массив}
​NumberX:=0;
​For I:=1 to 10 do
​​If Rand(I)=X then NumberX:=NumberX+1;
{Анализ и вывод результата}
​If NumberX=0
​Then​writeln(‘В массиве нет числа’,X)
​Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.