Прелесть языка PascalABC.NET в том, что мы читаем задачу и параллельно пишем строчку программы, выполняющую все необходимое.
Шутка, конечно, но в данном случае так оно и было.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Range(4,40,4).Select(x->Sqrt(2*x)).Sum.Println
end.
<span>Комбинация клавиш ctrl +page down</span>перемещает к следующему изменению
расположения.
Лучший ответ плиз:)
Var a,s :integer;
begin
a:=0;
s:=0;
repeat
a:=a+1;
if a mod 2 = 0 then
s:=s+1;
until
a=234;
writeln('кол-во четных чисел : ',s)
end.
35 в двоичной 100011, в восмеричной 43, в шестнадцитиричной 23
112 в двоичной1110000, в восмиричной 160, в шестнадцатеричной
327 в двоичной 101000111, в восмеричной 507, в шестнадцатеричной 147
1) 5 Кбайт= 5*1024 *8 бит= 40 960 бит
2) 40 960 : 10 240 = 4 бита ~ 1 символ
2) 2^4=16 символов в алфавите ( или - мощность алфавита)
ответ 16