Требовалось написать программу, при выполнении которой с клавиатуры вводится натуральное число, не превосходящее 10^8, и выводится его первая цифра.ученик написал такую программу: var n: longint; begin read(n); while n> 10 do begin n: =n mod 10 end; write(n); end. 1)напишите, что выведет эта программа при вводе числа 1984. 2) пример числа, при вводе которого программа выдаст верный ответ. 3)найдите в программе все ошибки.

1) 4 2) 7 3) мы в цикле берем остаток от деления на 10 => последнюю цифру, нужно поменять на n: =n div 10

var

  a: array [1..5, 1..4] of integer;

  min, max: integer;

  i, j: integer;

 

begin

  min: = 100;

  max: = 1;

  write('исходный массив: ');

  for i: = 1 to 5 do

  for j: = 1 to 4 do

  begin

    a[i, j]: = random(99) + 1;

    write(a[i, j], '   ');

    if a[i, j] < min then min: = a[i, j];

    if a[i, j] > max then max: = a[i, j];

  end;

  writeln;

  writeln('разность максимального и минимального элемента массива равна:   ', max - min);

end. 

если что не понятно - спрашивай.

так как сумма цифр слова бот равна 8 а сумма цифр слова болт равна 11 то значение л=3.в слове лото две буквы о и она равна 12ти, из этого следует что эта буква о не больше 2( и скорее это не один и не ноль), то о=2.в слове лото осталась одна буква т и она равна 5(3+2+5+2=12).находим б из слова бот: 8-2-5=1.также находим из слова вол: 9-2-3=4.                                              

л=3,о=2,т=5,б=1,в=4