Ученик в числе 1465 поставил курсор после 6 и нажал клавишу Delete. Что произойдет с числом? Введите число которое получилость после выполнения учеником этого действия.

146

Объяснение:

Правила безопасного использования сети интернет вы  должны это знать: при регистрации на  сайтах, старайтесь не  указывать личную информацию, т.к. она может быть доступна незнакомым людям. так же, не  рекомендуется размещать свою фотографию, давая, тем самым, представление о  том, как вы  выглядите, посторонним людям. используйте веб-камеру только при общении с  друзьями. проследите, чтобы посторонние люди не  имели возможности видеть ваш разговор, т.к. он  может быть записан. нежелательные письма от  незнакомых людей называются «спам». если вы  получили такое письмо, не  отвечайте на  него. в  случае, если вы  ответите на  подобное письмо, отправитель будет знать, что вы  пользуетесь своим электронным почтовым ящиком и  будет продолжать посылась вам спам. если вам пришло сообщение с  незнакомого адреса, его лучше не  открывать. подобные письма могут содержать вирусы. если вам приходят письма с  неприятным и  оскорбляющим вас содержанием, если кто-то ведет себя в  вашем отношении неподобающим образом, сообщите об  этом. если вас кто-то расстроил или обидел, расскажите все взрослому.  

Var InFile, OutFile: text; // Вводной и выводной файлы
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
  Append(OutFile)
  Result:=(-b + sqrt(D)) / 2 * a
  Write(OutFile,Result)
  Write("Корень уравнения")
  WriteLn(Result)
  if (D>0) then
    Result:=(-b - sqrt(D)) / 2 * a
    Write(OutFile, Result)
    Write("Второй корень уравнения")
    Write(Result)
  End;
End.