(см. объяснение)
Объяснение:
В прикрепленных файлах приведено решение на 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)
//Поскольку вы не указали структуру файла и язык программирования, то подберу их сам.
//ЯП: C#
//Структура: рост/имя/вес/страна проживания
Код:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
namespace Prog
{
class Program
{
static void Main(string[] args)
{
string location = "C://Test//Persons.txt";
try
{
int size = File.ReadLines(location).Count();
if (size > 0)
{
List<string> person = new List<string>();
string[] tallestPerson = new string[4];
int maxHeight = -1;
int height = 0;
int index = 0;
StreamReader PersonsReader = new StreamReader(location, Encoding.Default);
for (int i = 0; i < size; i++)
{
person.Add(PersonsReader.ReadLine());
height = Convert.ToInt32(person[i].Remove(person[i].IndexOf("/")));
if (height > maxHeight)
{
maxHeight = height;
index = i;
}
}
string tmp = person[index];
int paramIndex = 0;
for (int j = 0; j < tmp.Length; j++)
{
if (tmp[j] != '/')
tallestPerson[paramIndex] += tmp[j];
else
paramIndex++;
}
Console.WriteLine("Самый высокий человек: " + tallestPerson[1]);
Console.WriteLine("Рост: " + tallestPerson[0] + " см");
Console.WriteLine("Вес: " + tallestPerson[2] + " кг");
Console.WriteLine("Страна проживания: " + tallestPerson[3]);
}
else
{
Console.WriteLine("Файл пустой!");
}
}
catch (Exception)
{
Console.WriteLine("Ошибка! Файл не нейден, либо нарушена его структура!");
}
finally
{
Console.ReadKey();
}
}
}
}
73, 8% опрошенных в социальных сетях имеют более друзей. это достаточно много. молодые люди, завязывая дружбу в «виртуальном пространстве», ориентируются в основном, на общность интересов, в таком случае друг является источником какой-либо информации. это, конечно, плюс. однако, в случае виртуальной дружбы возникают следующие проблемы: трудно отследить искренность излагаемой информации, понять истинное отношение виртуального друга к себе, также можно в любой момент прервать общение, нет надобности разрешать конфликты. то есть дружба утрачивает те функции, которые она выполняет в реальном общении, утрачивается и значимость эмоциональной стороны дружбы.
31% молодых людей считают, что общение в интернете решать личные проблемы, а 69% считают, что общение в интернете не этому.
Программа:
def F(n):
if n <= 18:
return n + 3
elif n > 18 and n % 3 == 0:
return (n // 3) * F(n // 3) + n - 12
else:
return F(n - 1) + n * n + 5
k = 0
for i in range(1, 801):
m = 0 # Обнуляем переменную проверки длины четных цифр в числе
for j in range(len(str(F(i: # Пробежимся по длине числа (От 0 до len('число'))
if int(str(F(i))[j]) % 2 == 0: # Проверяем каждую цифру числа на чётность
m += 1
if m == len(str(F(i))): # Если значение переменной совпадает с длиной числа, то..
k += 1
print(k)
ответ: 16