1.
Var
a,b,c:integer;
Begin
Write('Введите а, в, с: ');
Readln(a,b,c);
if abs(a+b+c)>3 then write('Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ',a,'-1 = ',a-1,', ',b,'-1 = ',b-1,', ',c,'-1 = ',c-1) else write('Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c));
End.
2.
Var r,a:integer;
Begin
Write('Введите радиус круга ');
Readln(r);
Write('Введите сторону квадрата ');
Readln(a);
writeln('S круга = ',sqr(r)*pi,', S квадрата = ',sqr(a));
if (sqr(r)*pi) > (sqr(a)) then write('S круга больше, чем S квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('S квадрата больше, чем S круга') Else write('S круга = S квадрата');
End.
1)4+8=12
2)12+8=20
3)32-20= 12 = 3/8
1) черные клубки шерсти составляют <span> 3/8</span> от всех
2) поэтому сообщение о том, что первый вынутый клубок шерсти – черный, соответствует выбору одного из 8 вариантов
3) выбор 3 из 8 вариантов – это информация в 9 бита (по таблице степеней двойки)
4) правильный ответ – 9 битов
Var
S1,S2,S3:string;
i:integer;
Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.
Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9