Var
a,b: string;
i: integer;
ka,kb: boolean;
begin
readln(a);
readln(b);
for i:=1 to 10 do
if a[i]='s' then ka:= true;
if ka then writeln('s in A');
for i:=1 to 20 do
if b[i]='q' then kb:= true;
if kb then writeln('q in B')
<span>end.</span>
\\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627
var a: array [1..2] of integer;
i, rez: integer;
begin
for i := 1 to 2 do
readln(a[i]);
rez := 0;
i:=1;
for i:=1 to 1 do
if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez);
end.
Сколько учеников имеют суммарный балл ниже среднего (excel) смотри на файле
На питоне 3й версии достаточно ввести
print (3 ** 100<span>)
</span>Ответ:
<span>515377520732011331036461129765621272702107522001
Для 2й версии Питона:
</span>print 3 ** <span>100
</span>
Бра́узер<span>, или </span>веб-обозреватель<span>— </span>прикладное программное обеспечение<span> для просмотра </span>веб-страниц<span>, содержания </span>веб-документов<span>, </span>компьютерных файлов<span> и их </span>каталогов<span>; управления </span>веб-приложениями<span>; а также для решения других задач.</span>