На каком языке программирования????
<h2>Задание 1</h2>
a = 2, b = 4
a = 2 · a + 3 · b = 2 · 2 + 3 · 4 = 4 + 12 = 16
b = a / 2 · b = 16 / 2 · 4 = 8 · 4 = 32
<h3>Ответ</h3>
32
<h2>Задание 2</h2>
v = 4, n = 13
v = n - v · 3 = 13 - 4 · 3 = 13 - 12 = 1
n = v · 14 - n = 1 · 14 - 13 = 14 - 13 = 1
<h3>Ответ</h3>
1
Процедура:
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
функция:
function df(a,b: integer): integer;
begin
df:=a div b;
end;
программа с процедурой:
Program n1;
var x,y: integer;
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
begin
readln(x,y);
dp(x,y);
end.
программа с функцией:
Program n1;
var x,y: integer;
function df(a,b: integer): integer;
begin
df:=a div b;
end;
begin
readln(x,y);
writeln(df(x,y));
end.
На самом деле эта задача, вроде непонятная с виду, достаточно проста.
Сначала сделаем замену.
Два в степени n (где n больше или равно нулю) в двоичной системе счисления изображается единицей, за которой следуют n нулей. 15 в двоичной системе отображается числом 1111.
Попробуем вычислить величину
Из числа, которое изображается единицей с 2017 нулями, вычитаем 1111.
Попробуем рассуждать. Если бы у нас была единица, например, с пятью нулями, то мы бы получили 10000-1111=10001, т.е. две единицы и три нуля. Для единицы с шестью нулями получится три единицы и три нуля. Для единицы с семью нулями - четыре единицы и три нуля. Рассуждая аналогично, для единицы с 2017 нулями мы получим 2014 единиц и три нуля.
Осталось прибавить
. Это единица с 4040 нулями, поэтому в результате число единиц увеличится до 2015.
Ответ: 2015
Program chik;
var k,i,s,a:integer;
begin
s:=1;k:=0;
for i:=1 to 17 do
begin
read(a);
if (a mod 17<>0)then begin
k:=1;
s:=s*i;
end;
end;
if k=1 then write(s)else write(0);
end.