fkn+antitotal

Следующая страница. Функции для обработки данных
Оглавление.

Решение задачи 15 из главы 13.1

15. С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

program Project15;
var a, i: integer;
begin
   a:=1;
   while (a<=9) do
      begin
        i:=1;
        while (i<=9)do
           begin
             writeln(a, ':', i, ' = ', a div i);
             i:=i+1;
           end;
        a:=a+1;
        writeln();
      end;
  readln();
end.

Решение задачи 14 из главы 13.1

14. С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9

program Project14;
var a, i: integer;
begin
   a:=1;
   while (a<=9) do
      begin
        i:=1;
        while (i<=9)do
           begin
             writeln(a, '*', i, ' = ', a*i);
             i:=i+1;
           end;
        a:=a+1;
        writeln();
      end;
  readln();
end.

Решение задачи 13 из главы 13.1

13. Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран)

Решение задачи 12 из главы 13.1

12. Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат

Решение задачи 8 из главы 11

8. Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

Решение задачи 11 из главы 13.1

11. Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

program Project11;
var i: integer;
begin
  repeat
    writeln('Vvedite zeloe chislo:');
    readln(i);
    if ((i mod 2) = 0) then
         writeln('Chislo ', i, ' chetnoenoe')
    else
       writeln('Chislo ', i, ' nechetnoenoe');
  until (i=0);
  writeln('Konez zikla!');
end.

Решение задачи 10 из главы 13.1

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

Не понятно условие, а именно N/2 символов.

В Visual Studio Code, при настроенном переключении раскладки клавиатуры на alt+shift, после переключения языка происходит переключение фокуса с формы ввода на панель меню сверху (file, edit, ...etc).
Соответственно, чтобы написать некоторый текст, используя несколько языков, приходится каждый раз после alt+shift делать клик на форме ввода, что неудобно.
Этот баг актуален как минимум на ubuntu 18.04, 20.04.
Подробное описание бага здесь

Решение:

ERROR: for ..... Cannot create container for service web: invalid port specification: "583522"

ERROR: for ... Cannot create container for service web: invalid port specification: "583522"
ERROR: Encountered errors while bringing up the project.

Причина

Причина в том, что для портов ниже 60, докер воспринимает число после двоеточия как указание на систему счичления, цитата из документации: