Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
Количество видов событий: N показывает сколько будет слагаемых. Речь идет о яблоках, грушах и апельсинах, поэтому N=3.<span>Определим вероятности покупки каждого вида фруктов: .</span>Тогда количество информации, которое получит мама после прихода дочки домой, можно рассчитать по формуле Шеннона:<span>Бита.</span>
Резюме, я думаю что это резюме
// Код на паскале
var
a, b: array [1 .. 8] of longint;
i, ans1, ans2: byte;
function check(var x: longint): boolean; // функция проверки числа на четность
begin
if x mod 2 = 0
then check := true
else
check := false;
end;
begin
ans1 := 0;
ans2 := 0;
for i := 1 to 8 do
begin
read(a[i]); //читаем число а_і
if check(a[i]) then //если четное, то ...
inc(ans1); //увеличиваем ответ_1 на 1
end;
for i := 1 to 8 do
begin
read(b[i]); //читаем число b_i
if not check(b[i]) then // если нечетное, то ...
inc(ans2); // увеличиваем ответ_2 на 1
end;
writeln('Количество четных чисел в первой последовательности = ', ans1);
writeln('Количество нечетных чисел во второй последовательности = ', ans2);
end.