Ответ: 16 по основанию 8 --> 1*8^1+6 = 14 по основанию 10
35 по основанию 8 --> 3*8+5=29 по основанию 10
57 по основанию 8 --> 47 по основанию 10
103 по основанию 8 --> 1*8^2 + 0+ 3= 67 по основанию 10
177 по основанию 8 --> 64 + 56 + 7 = 127 по основанию 10
234 по основанию 8 --> 156 по основанию 10
3. 100011101 + 1001110 = 101101011
111000+110011 = 1101011
4. 11100111 - 11011 = 11000100
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var x:=ReadReal('x=');
var s:=0.0;
for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
Writeln('s=',s)
end.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036
const
nn = 100; // максимальное число элементов
var
a: array[1..nn] of integer;
i, n: integer;
p: real;
begin
write('n = ');
read(n);
writeln('введите элементы массива');
p := 1;
for i := 1 to n do
begin
read(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 <> 0) then
p := p * a[i];
end;
writeln('П = ', p);
end.
Анимация процесса копирования или архивации
_____________________________________
Блез Паскаль - франция-паскалина,
Лейбниц - Германия - арифмометр
Беббидж-Англия-аналитическая машина,
Холлерит-США-табулятор