<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln('Cотни ',s,', десятки ',d,', единицы ',e);
Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);
Writeln('Справа налево: ',100*e+10*d+s);
Writeln('Перестановка сотен в конец: ',100*d+10*e+s)
end.
<u>Пример</u>
328
Cотни 3, десятки 2, единицы 8
Сумма цифр 13, их произведение 48
Справа налево: 823
Перестановка сотен в конец: 283
Костя - Гирлянды из золотой бумаги;
Женя - Гирлянды из серебристой бумаги;
Дима - Хлопушки из золотой бумаги;
Вадим - Шары из красной бумаги.
Чтобы можно было декодировать однозначно, должно соблюдаться условие Фано - ни один код символа не является началом другого.
10 не подходит, т.к. на 10 уже начинаются кодыкоды В и Д
00 не подходит, так как на 0 начинается А
Остаётся 11 для Г, на 11 никакой другой код не начинается.
Ответ 4
Массив вводим с клавиатуры или иного устройства ввода.
Создание программы для нахождения среднего арифметического + вывод среднего арифметического на экран.
i - цикловая переменная
sra - среднее арифметическое всех элементов массива
s - сумма всех элементов массива
var
А:array [1..30] of real;
i:integer;
sra,s:real;
begin
s:=0;
for i:=1 to 30 do
begin
readln (a [ i ]);
s:=s+a[i];
end;
sra:=s/30;
writeln (sra)
end.
