var b:integer;
begin
readln(b);
If (b div 1000)mod 2=0 then writeln('1 цифра четная')
else writeln('1 цифра нечетная');
If ((b div 100) mod 10)mod 2=0 then writeln('2 цифра четная')
else writeln('2 цифра нечетная');
If ((b div 10)mod 10)mod 2=0 then writeln('3 цифра четная')else writeln('3 цифра нечетная');
If (b mod 100)mod 2=0 then writeln('4 цифра четная')
else writeln('4 цифра нечетная');
<span>end.</span>
1) n=2 в степени i
Где n - кол-во символов в алфавите, а i - вес одного символа в битах. Подставим значение n в формулу.
8=2 в степени i
Значит, i=3.
2) m=k*i
Где m - кол-во информации сообщения (в битах/байтах и т.д.), k - кол-во символов в сообщении. Подставим значения:
m=13*3=39 (бит)
Ответ: 39 бит.
Var
n,d,e:integer;
begin
Write('Введите двухзначное число: '); Read(n);
d:=n div 10; e:=n mod 10;
Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.
<em><u>Тестовое решение:</u></em>
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92
1. Комфорт ФОРТ
2. Бантик ТИК
3.Форточка ФОРТ
Если слова,то вот.
Pascal
var
x,y : integer;
begin
readln (x,y);
if (x=0) or (y=0)
then
begin
if x = 0 then
writeln ('Точка лежит на оси y');
if y = 0 then
writeln ('Точка лежит на оси x')'
end
else
begin
if (x>0) and (y>0) then
writeln ('Точка находится в первой четверти');
if (x<0) and (y>0) then
writeln ('Точка находится во второй четверти');
if (x<0) and (y<0) then
writeln ('Точка находится в третей четверти');
if (x>0) and (y<0) then
writeln ('Точка находится в четвертой четверти');
end;<span>
end.</span>