<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Какое число получилось?');
Writeln('Вы загадали число ',n-10)
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(ReadInteger('n='),t->Sqrt(t)); a.Println(', ')
end.
<u>Пример</u>
n= 13
0, 1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838, 3.3166247903554, 3.46410161513775
<u>Замечание:</u> массив индексирован от нуля.
Сначала нужно определить размер файла, который был передан,
для этого 32768 умножаем на 15, итого 491520 бит.
На одной странице выходит 48х8=384 бита информации.
Делим 491520 на 384, получаем 1280 страниц текста
19 с индексом 10 означает , что 19 - в десятичной системе счисления , ну т.е наша обычная (0,1,2,3....9) . А 10011 с индексом 2 , это тоже 19 но уже в двоичной системе счисления.
Var
i, s: integer;
begin
s:=0;
for i:=1 to 50 do
if (i mod 3 = 0) or (i mod 7 = 0) then
inc(s, i);
<span>writeln(s);
</span>end.