fkn+antitotal

[critical] Error thrown while running command "...". Message: "There are no commands defined in the "app" names

Чтобы зарегистрировать консольную команду под указанным именем, начиная с PHP8 можно использовать аннотации:

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

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var
  i:integer;
begin
  for i:=1 to 100 do
    if (i mod 7)=0 then
      write(i, ' ');
readln();
end.

Задача 8 Урок 10.1

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var
  i:integer;
begin
  for i:=35 to 117 do
    if (i mod 3)=0 then
      write(i, ' ');
writeln;
  for i:=45 to 99 do
    if (i mod 2)<>0 then
      write(i, ' ');
readln();
end.

Задача 7 Урок 10.1

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

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

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var
  i:integer;
begin
  for i:=35 to 117 do
    begin
      if (i mod 2<>0) and (i mod 3=0) then
       write(i, ' ');
    end;
  readln();
end.

Задача 5 Урок 10.1

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
Подсказка: в каждой ветке условного оператора тут должно быть по одному циклу.

Задача 4 Урок 10.1

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

Задача 3 Урок 10.1

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

var
  i:integer;
begin
  for i:=35 to 64 do
    if (i mod 2)=0 then
      write (i, ' ');
  readln();
end.

Задача 2 Урок 10.1

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:
1
2
3
1
5
ответ: 1 2 3 4 5
Иначе в порядке убывания, пример консоли:
1
2
3
5
3
ответ: 5 4 3
Проверить решение для пар значений:

1
10 20
-- должны увидеть все числа от 10 до 20, и для:

Задача 1 Урок 10.1

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

var
  i:integer;
begin
  for i:=35 to 64 do
  write(i, ' ');
  readln();
end.