fkn+antitotal

The 'import.meta' meta-property is only allowed when the '--module' option is 'es2020', 'esnext', or 'system'.ts(1343)

Возможное решение

Установите опцию module файла tsconfig.json например в "es2020", пример в контексте:

Задача 2 урок 21

Есть исходный код:

Задача 1 урок 21

У вас есть функция:

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

Объясните что делает эта программа (что будет выведно на экран и почему)

Выводит числа от 1 до 100 с шагом 5

Перепешите её с помощью цикла repeat/until

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

Ответьте на вопросы/выполните задания:
Перепишите её, используя цикл while.

var i: integer;
begin
  i := 5;
  while i <= 34 do
    begin
      write(i, ' ');
      i := i + 1;
    end;
  readln();
end.    

Перепишите её, используя цикл repeat/until.

var i: integer;
begin
  i := 5;
  repeat
    write(i, ' ');
    i := i + 1;
  until (i > 34);
  readln();
end.

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

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.

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

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var i:integer;
begin
   i := 35;
   repeat
     if ((i mod 2)=0) and ((i mod 3)=0)
     and ((i mod 6)=0) then
       write(i, ' ');
     i := i + 1;
   until (i < 117);
  readln();
end.   

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

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var i:char;
begin
  repeat
   writeln('vvedite simvol:');
   readln(i);
   if i ='#' then
      writeln('poka!')
   else
      writeln('&');
  until (i ='#');
  readln();
end.

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

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

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

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

var i:integer;
begin
  i := 55;
  repeat
  write(i, ' ');
  i := i + 1;
  until (i = 9237);
  readln();
end.