а) 5
б) 250
в) 65
г) 2
д) 50
Объяснение:
а)
a:=9;
b:=a mod 5; // 4 (9 делим на 5, берем по 1, 9-5=4 (4 остаток).
b:=b*10; // 4*10=40 (b(4) умножаем на 10).
a:=b div 5-3; // (b(40) делим на 5 и вычитаем из результата 3.
ответ:= 5
б)
a:=123;
b:=a div 10; // 12 (123 делим на 10, берем по 12, 123-120=3, (12-целочисленное, 3-остаток).
b:=b/4+2; // 12 делим на 4=3+2=5.
b:=b*25+2 // 5*25=125+2=127.
a:=a+b // 123+127=250.
ответ:= 250.
в)
a:=951;
b:=a div 100+a mod 100; // 60 (951 целочисленное при делении на 100 =9+951=960, остаток при делении на 100 числа 960=60).
a:=a div 10; // 95 целочисленное при делении на 10 числа 951
.
a:=a mod 10; // 5 остаток при делении числа 95 на 10
a:=a+b; // 5+60=65
г)
a:=336;
b:=8;
a:=a div b; // 42 целочисленное при делении числа 336 на 8 (336 делим на 8 =42).
b:= a mod b; // 2 остаток при делении числа 42 на 8 (берем о 5=42-40=2, 2 - остаток).
д)
a:=10;
b:=20;
b:=a+b; //10+20=30
a:=b-a; //30=10=20
b:=b+a; //30+20=50
(см. объяснение)
В прикрепленных файлах приведено решение на python и pascal.
ответом будет число 16.
Задание выполнено!
Скопировать код:
##
function F(n: integer): integer;
begin
if(n<=18) then F:= n+3
else if((n>18) and (n mod 3 = 0)) then F:= (n div 3)*F(n div 3)+n-12
else if((n>18) and (n mod 3 >0)) then F:= F(n-1)+n*n+5;
end;
var k: integer := 0;
for var i: integer := 1 to 800 do
var t: integer := 1;
foreach var c: char in F(i).ToString do
if(Integer.Parse(c) mod 2 > 0) then
t:= 0;
break;
if(t=1) then k:= k+1;
print(k);
def f(n):
if n <= 18:
return n + 3
elif n > 18 and n % 3 == 0:
return (n // 3) * f(n // 3) + n - 12
elif n > 18 and n % 3 > 0:
return f(n - 1) + n * n + 5
k = 0
for p in range(1, 801):
e = 1
for s in str(f(p)):
if int(s) % 2 > 0:
e = 0
break
if e == 1:
k += 1
print(k)
а) 5
б) 250
в) 65
г) 2
д) 50
Объяснение:
а)
a:=9;
b:=a mod 5; // 4 (9 делим на 5, берем по 1, 9-5=4 (4 остаток).
b:=b*10; // 4*10=40 (b(4) умножаем на 10).
a:=b div 5-3; // (b(40) делим на 5 и вычитаем из результата 3.
ответ:= 5
б)
a:=123;
b:=a div 10; // 12 (123 делим на 10, берем по 12, 123-120=3, (12-целочисленное, 3-остаток).
b:=b/4+2; // 12 делим на 4=3+2=5.
b:=b*25+2 // 5*25=125+2=127.
a:=a+b // 123+127=250.
ответ:= 250.
в)
a:=951;
b:=a div 100+a mod 100; // 60 (951 целочисленное при делении на 100 =9+951=960, остаток при делении на 100 числа 960=60).
a:=a div 10; // 95 целочисленное при делении на 10 числа 951
.
a:=a mod 10; // 5 остаток при делении числа 95 на 10
.
a:=a+b; // 5+60=65
г)
a:=336;
b:=8;
a:=a div b; // 42 целочисленное при делении числа 336 на 8 (336 делим на 8 =42).
b:= a mod b; // 2 остаток при делении числа 42 на 8 (берем о 5=42-40=2, 2 - остаток).
д)
a:=10;
b:=20;
b:=a+b; //10+20=30
a:=b-a; //30=10=20
b:=b+a; //30+20=50
(см. объяснение)
Объяснение:
В прикрепленных файлах приведено решение на python и pascal.
ответом будет число 16.
Задание выполнено!
Скопировать код:
##
function F(n: integer): integer;
begin
if(n<=18) then F:= n+3
else if((n>18) and (n mod 3 = 0)) then F:= (n div 3)*F(n div 3)+n-12
else if((n>18) and (n mod 3 >0)) then F:= F(n-1)+n*n+5;
end;
var k: integer := 0;
for var i: integer := 1 to 800 do
begin
var t: integer := 1;
foreach var c: char in F(i).ToString do
if(Integer.Parse(c) mod 2 > 0) then
begin
t:= 0;
break;
end;
if(t=1) then k:= k+1;
end;
print(k);
def f(n):
if n <= 18:
return n + 3
elif n > 18 and n % 3 == 0:
return (n // 3) * f(n // 3) + n - 12
elif n > 18 and n % 3 > 0:
return f(n - 1) + n * n + 5
k = 0
for p in range(1, 801):
e = 1
for s in str(f(p)):
if int(s) % 2 > 0:
e = 0
break
if e == 1:
k += 1
print(k)