Запиши программу на языке Паскаль. Вычисли сумму s=∑k=1nk+1k2+1, если значение n вводит пользователь. Если n=9, то вывод на экран (ответ округли до сотых)
//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию uses System.Linq; begin begin writeln('I'); var n := ReadInteger('n='); Writeln((1 + 1 + Power(2, n - 1)) * n / 2); end;
begin writeln; writeln('II'); var n := ReadInteger('n='); Writeln(n mod 11 = 0 ? 'YES' : 'NO');
end;
begin writeln; writeln('III'); var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList; writeln;
while a.Any() do begin write(a[0], ' '); a.RemoveAt(0); if not a.Any then break;
write(a.Last, ' '); a.RemoveAt(a.Count - 1); if not a.Any then break;
var n := 0; if a.Count > 1 then n := a.Count div 2 - 1; write(a[n], ' '); a.RemoveAt(n); end; end; end.
IP 214.120.249. 18
маска 255.255.240. 0
cеть 214. 120. х. 0
240=128+64+32+16=1111 0000 (2сс)
249=240+8+1 = 1111 1001 (2сс)
1111 0000 - побитовая конъюнкция =240
x=240
ответ 214.120.240.0
2)
IP 114 = 64+ 32+ 16+2=0111 0010
сеть 96=64+32 = 0110 0000
маска= 1110 0000 =128+64+32= 224
ответ 224
3)
156. 32.149.138 IP
156. 32.128. 0 сеть
255.255. х . 0
149=128+16+4+1=1001 0101
128= 1000 0000
max маска 1110 0000=224 (3 единицы)
маска 255.255.224.0 (в 255=1111 1111 - 8 единиц)
8+8+3=19 единиц
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
begin
writeln('I');
var n := ReadInteger('n=');
Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
end;
begin
writeln;
writeln('II');
var n := ReadInteger('n=');
Writeln(n mod 11 = 0 ? 'YES' : 'NO');
end;
begin
writeln;
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end;
end.