Программа для нахождения нок в паскале. объясните, строчки, помечанные цифрами. заранее . var n, m: integer; i, k: integer; delitsya: boolean; 1. begin write('vvedite n: '); readln(n); write('vvedite m: '); readln(m); if (m< > 0) and (n< > 0) then begin k: =n*m; 2 i: =k; 3 while i> 0 do 4 begin if (i mod n=0) and (i mod m=0) then 5 k: =i; 6 i: =i-1; 7 end; writeln('nok ', m, ' i ', n, ' raven ', k) end else writeln('na nol delit nelzya'); readln; end.

Delitsya: boolean; -   видимо переменная  delitsya   типа  boolean (значение 0 или 1) k: =n*m;   -   присваиваем переменной k значение произведения  n*m i: =k;   -  присваиваем переменной  i значение переменной k  while i> 0 do   - цикл, который будет выполняться пока значение  i> 0 if (i mod n=0) and (i mod m=0) then   - если остатки отделения  i mod n и  i mod m равны нулю, то выполняется 2  строчки ниже с присвоением k значения i и уменьшением i на 1 ощущение, что программа написана криво, она вообще работает?  

Доброго времени суток! Как я понял, Ваш доклад в Word'е, если ошибаюсь, то извините.

Выделите заголовок и первую строчку текста, далее заходите "Формат", выбираете "Абзац"-"Межстрочный интервал" и выбрать какой Вам нужен: одинарный, полуторный, двойной.

Если же межстрочный интервал не работает, то попробуйте с боковых "плашек", подвигайте их, главное осторожно, а то весь текст может "поплыть".

Также я, иногда, делал следующим Между текстом и заголовком оставлял пустую строку, которую можно выделать (там нечего нет, но выделить можно) и далее меняете размер "пустого" текста в строке.

1) var       a1, a2, a3, max: integer; begin       write ('введите три числа: ');       readln (a1, a2, a3);       if a1 > = a2 then               max : = a1       else               max : = a2;       if a3 > max then               max : = a3;       writeln ('максимальное из них: ', max); readln end. 2) var   n: integer;   begin   repeat       writeln('введите номер месяца [1..12]');       readln(n);   until n in [1..12];   case n of       1: writeln('январь');       2: writeln('февраль');       3: writeln('март');       4: writeln('апрель');       5: writeln('май');       6: writeln('июнь');       7: writeln('июль');       8: writeln('август');       9: writeln('сентябрь');       10: writeln('октябрь');       11: writeln('ноябрь');       12: writeln('декабрь');   end; end.