fkn+antitotal

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

var a, i: integer;
begin
    readln(a);
    i := a;
    repeat
      if ((i > 1) and ((i mod 23) = 0)) then
    writeln(i);
    i := i - 1;
  until (a <= 1);
  readln();
end. 

Выведите на экран, все числа от 55 до 9236.

var a, i: integer;
begin
    i := 55;
    repeat
    writeln(i);
    i := i + 1;
  until (i >= 9237);
  readln();
end.   

Задача 6 Урок 9

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

[UnhandledPromiseRejection: This error originated either by throwing inside of an async function without a catch block, or by rejecting a promise which was not handled with .catch(). The promise rejected with the reason "SyntaxError: Unexpected token A in JSON at position 0".] {
code: 'ERR_UNHANDLED_REJECTION'
}
node:internal/process/promises:246
triggerUncaughtException(err, true /* fromPromise */);
^

Проще всего сделать так:

1. Установим пакет эн (n - его название)) для управления версиями ноды глобально:
   

   npm install -g n

2. А затем с помощью этого пакета переключим ноду на нужную нам версию:
   

    n 14.16.1

Подробнее о переключении между версиями см. тут: http://fkn.ktu10.com/?q=node/15936

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var x, y: integer;
begin
  readln(x);
  y := x div 1;
  writeln(y);
  readln();
end.

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100

var a: integer;
begin
   a := 0;
   while (a < 100) do
         begin
         a := a + 4;
         writeln(a);
         end;
   readln();
end.

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

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()