А1+А2+А3+А4=13
(А1+А2А+А3+А4+А5)/5=3
(13+А5)/5=3 =>
3*5=13+А5 =>
15=13+А5 =>
А5=2
2^0,03421571533791295638904171153183 = 2^10 = 2^13
2^9 = 2^18,965784284662087043610958288468 = 2^21,965784284662087043610958288468
считал через логарифмы
1000 кб=1*10³кб=1024000байт
ответ б
Program PR1;
uses crt;
var stroka,tmp:string;
i,b,max:integer;
Begin
clrscr;
readln(stroka);
max:=0;
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
if length(tmp)>max then max:=length(tmp);
tmp:='';
end
else begin
tmp:=tmp+stroka[i];
if i=length(stroka) then if length(tmp)>max then max:=length(tmp);
end;
writeln(max);
end.
Var a: integer;
begin
writeln('Введите год рождения'); readln(a);
case a mod 12 of
0: writeln('Вы родились в год Обезьяны.');
1: writeln('Вы родились в год Петуха.');
2: writeln('Вы родились в год Собаки.');
3: writeln('Вы родились в год Свиньи.');
4: writeln('Вы родились в год Крысы.');
5: writeln('Вы родились в год Быка.');
6: writeln('Вы родились в год Тигра.');
7: writeln('Вы родились в год Кролика.');
8: writeln('Вы родились в год Дракона.');
9: writeln('Вы родились в год Змеи.');
10: writeln('Вы родились в год Лошади.');
11: writeln('Вы родились в год Козы.');
end;
readln
<span>end.</span>
