Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
Var out, i:integer;beginfor i:=50 to 100 do if i mod 10 = 3 then inc(out);write(out);end.
Кбит/с=1024бит/с
мбит/с= 1048576 бит/с
гбит/с= 1073741824бит/с
Система счисления устанавливается исходя из двух первых фраз.
"Я окончил курс университета 44 лет от роду. Спустя год, 100-летним молодым человеком...".
Только в системе счисления по основанию 5 прибавление 1 к 4 даст +1 в следующий разряд и обнулит текущий. 44 (5) +1=100 (5)
При переходе к десятичной системе счисления получаем следующий текст:
Я окончил курс университета 24 лет от роду. Спустя год, 25-летним молодым человеком<span>, я женился на 19-летней девушке. Незначительная
разница в возрасте- всего 6 лет- способствовала тому, что мы жили
общими интересами и мечтами. Спустя немного лет у меня уже была
маленькая семья из 5 детей. Жалованья я получал в месяц всего 50
рублей, из которых приходилось отдавать 1/5 сестре, так что мы с детьми
жили на 40 рублей в месяц"</span>.