Выбрать фрагмент алгоритма, соответствующий блок-схеме:
U1, 02 = некоторые условия
s, S1, S2 - некоторые операторы
o
Если U1 то S
иначе
Если U2 то S1 Конец ветв
S2
Конец ветв
U1
о
Если U1 то ѕ
иначе
Если U2 то S1
иначе S2
Конец ветв
Конец ветв
S2
Если U1 то S Конец ветв
Если U2 то S1 Конец ветв
S2
Если U1 то ѕ
Если 02 то S1 иначе S2 Конец ветв
Конец ветв
Если U1 то S Конец ветв
Если 02 то S1 иначе ѕ2 Конец ветв
о
пропустить​

язык программирования: паскаль  №1.r - радиус окружностиc - длина окружностиs - площадь кругавзято число пи, равное 3,14.var r, c, s : real; beginreadln (r); c : = 2 * 3.14 * r;   s : = 3.14 * sqr(r); writeln (c); writeln (s);   end.№2a - натуральное числоp - произведение цифр числаvar a, p : integer; beginreadln (a); p : = (a mod 10) * (a div 10 mod 10) * (a div 100); writeln (p); end.№3.a - первое числоb -  второе числоc -  третье числоучитывая, что все числа разные.var a, b, c : integer; beginreadln (a); readln (b);   readln (c);   if (a < b) and (a < c) then a : = a * 3; elseif b < c thenb : = b * 3; elsec : = c * 3; writeln (a); writeln (b); writeln (c);   end.

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

в системе ascii 1 символ кодируется 1 байтом, в юникоде 2 (ну так, к слову)

текст наш состоит из 30 символов (пробелы и знаки припинания тоже считаем), значит он занимает 30 байт = 240 бит

бег - бог - бок - бак - мак - маг -шаг