Program s;
var
b:array[1..100] of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
b[i]:=i*i-4;
writeln(b[i]);
end;
end.
1) Python:
nn = int(input())
k = 1 + (nn-1) // 3 * 2 + (nn-1) % 3
print (k)
2) Pascal:
var nn,k : longint;
begin
read (nn);
k:=1+(nn-1) div 3 * 2+(nn-1) mod 3;
write (k);
end.
<span>Для перевода числа из любой системы счисления в
десятичную систему надо содержимое каждого
разряда умножить на его "вес" (то есть на основание системы в степени
n-1, где n-номер разряда), а затем суммировать полученные результаты.
В
разрядах, где шестнадцатеричная цифра записана буквой, нужно записать
вместо неё соответствующее десятичное число (вместо A пишем 10, далее: B=11,
C=12, D=13, E=14, F=15).
Считаем по вышеуказанным правилам:
1) 0010</span>₂<span> = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ = 0*1 + 1*2 + 0*4 + 0*8 = 0+2+0+0 = 2₁₀
</span>1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 1*1 + 1*2 + 0*4 + 1*8 = 1+2+0+8 = 11₁₀
11101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ = 1*1 + 0*2 + 1*4 + 1*8 +1*16 = 1+0+4+8+16 = 29₁₀
0111₂ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ = 1*1 + 1*2 + 1*4 + 0*8 = 1+2+4+0 = 7₁₀
0101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ = 1*1 + 0*2 + 1*4 + 0*8 = 1+0+4+0 = 5₁₀
2) 777<span>₈ = </span>7*8⁰ + 7*8¹ + 7*8² = 7*1 + 7*8 + 7*64 = 7+56+448 = 511₁₀
375₈ = 5*8⁰ + 7*8¹ + 3*8² = 5*1 + 7*8 + 3*64 = 5+56+192 = 253₁₀
111₈ = 1*8⁰ + 1*8¹ + 1*8² = 1*1 + 1*8 + 1*64 = 1+8+64 = 73₁₀
1015₈ = 5*8⁰ + 1*8¹ + 0*8² + 1*8³ = 5*1 + 1*8 + 0*64 + 1*512 = 5+8+0+512 = 525₁₀
3) 15₁₆ = 5*16⁰ + 1*16¹ = 5*1 + 1*16 = 5+16 = 21₁₀
A6₁₆ = 6*16⁰ + 10*16¹ = 6*1 + 10*16 = 6+160 = 166₁₀
1F5₁₆ = 5*16⁰ + 15*16¹ + 1*16² = 5*1 + 15*16 + 1*256 = 5+240+256 = 501₁₀
63<span>₁₆ = 3*16⁰ + 6*16¹ = 3*1 + 6*16 = 3+96 = 99₁₀</span>
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, -50, 50);
a.Println;
Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);
var n := ReadInteger('A=');
Print('Искомые индексы:');
a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)
.Select(t -> t[1]).Println;
n := ReadInteger('k=');
if a.Any(t -> t mod n = 0) then Println('Есть кратные')
else Println('Нет кратных')
end.
<span> ЭВМ пятого поколения ставятся совершенно другие задачи, нежели при
разработки всех прежних ЭВМ. Если перед разработчиками ЭВМ с I по IV
поколений стояли такие задачи, как увеличение производительности в области
числовых расчётов, достижение большой ёмкости памяти, то основной задачей
разработчиков ЭВМ V поколения является создание искусственного интеллекта
машины (возможность делать логические выводы из представленных фактов),
развитие "интеллектуализации" компьютеров - устранения барьера между
человеком и компьютером. Компьютер теперь используется и дома, это
компьютерные игры, прослушивание высококачественной музыки, просмотр фильмов.
Уже сейчас компьютеры способны воспринимать информацию с рукописного или
печатного текста, с бланков, с человеческого голоса, узнавать пользователя по
голосу, осуществлять перевод с одного языка на другой. Это позволяет общаться
с компьютерами всем пользователям, даже тем, кто не имеет специальных знаний
в этой области.</span>