Впоселке функционируют три средние школы №1, №2 и №3. администрация поселка выделила по k дачных участков для каждой школы. участки расположены в ряд вдоль автотрассы и нумерованы от 1 до n (n = 3k). учителя школы №1 уже выбрали себе участки, теперь предстоит распределить участки между учителями школы №2 таким образом, чтобы выбранные k участков имели наименьшую протяженность. (выбирать участки подряд мешает выбор, сделанный учителями школы №1) мерой протяженности для выбранных участков является число участков, находящихся между крайними участками (из выбранных участков). например, если выбраны пять участков с номерами 3, 4, 8, 12, 14, то протяженность этих участков равна 14 – 3 – 1 = 10. требуется написать программу, которая сделала бы правильный выбор участков для учителей школы №2. входные данные: входной файл состоит двух строк; в первой - одно натуральное число: k – число участков, выделенных для каждой школы; 1  k  999999. во второй строке - номера участков, выделенных для учителей школы №1. выходные данные: выходной файл состоит из k 4 натуральных чисел – номеров участков для учителей школы №2. формат ввода 6 1 4 7 12 15 17 формат вывода 8 9 10 11 13 14

степень

program jopascal;  

var  

  i, a: longint;  

  x,  

  u, j,  

  n, m : longint;  

function fdiv (a, left : longint) : longint;  

var  

d,  

i : longint;  

begin  

d : = 1;  

for i : = left to trunc (sqrt (a)) do  

if (a mod i = 0)  

then  

begin  

d : = i;  

break;  

end;  

if (d < > 1)  

then  

fdiv : = d  

else  

fdiv : = a;  

end;  

function g (n, u : longint) : longint;  

var  

i : longint;  

begin  

i : = 0;  

while (n mod u = 0)  

do

begin  

inc (i);  

n : = n div u;  

end;  

g : = i;  

end;  

begin  

assign (input, 'input.txt');  

assign (output, 'output.txt');  

reset (input);  

read (a);  

close (input);  

m : = 0;  

n : = 1;  

i : = fdiv (a, 2);  

u : = 2;  

while (a > 1)  

do  

begin  

n : = n * i;  

j : = 0;  

while (a mod i = 0)  

do  

begin  

inc (j);  

a : = a div i;  

end;  

if (j > m)  

then  

begin  

m : = j;  

u : = i;  

end;  

i : = fdiv (a, i + 2);  

end;  

x : = 1;  

while (g (n * x, u) * n * x < m)  

do  

inc (x);  

n : = n * x;  

rewrite (output);  

write (n);  

close (output);  

end.

Как называется программа?

ответ: cup_of_tea

Запишите какой тип переменных используется в программе.

ответ: real

Запишите названия используемых переменных.

ответ: a, b, c, y , x

В какой строке программа получает данные от пользователя? Напишите номер строки

ответ: 5) readln(a,b,c);

Что будет выведено на экран, если пользователь введет значения: 6, 9, 3

ответ: 1.8

Объяснение:

Вы ввели неверный код, это может быть:

program cup_of_tea;

var a, b, c, y , x: real;

begin

, введите три числа');

   readln(a,b,c);

   y:=a;

   if b>y then y:=b;

   if c>y then y:=c;

   if (a>b) or (a>c) then x:=a;

   if (b>a) or (b>c) then x:=b;

   if (c>a) or (c>b) then x:=c;

   writeln (y+x);

end.