fkn+antitotal

SyntaxError: Cannot use import statement outside a module

Означает, что либо что-то не то с настройками проекта (import в стиле es6 не разрешен - разрешают такими способами).

Косвенно к этой ситуации может приводить:

• вариант, когда идет попытка обратиться из скомпилированного кода в js (dist/) к исходному коду

У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.\

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end. 

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

Есть программа:

var z,s:integer;
  f:boolean;
begin
  s:=1;
  if (z=s) and (f=false) then
    begin
      writeln();// делаем перенос строки
      z:=0;
      s:=s+1;//но увеличиваем кол-во строк
    end;
 
  if (z=s) and (f=true) then
    begin
      writeln(); // делаем перенос строки
      z:=0;
      s:=s-1;//но уменьшаем кол-во строк
    end;
end.    

-- в двух условных операторах действия частично совпадают, а значит наблюдается дублирование кода. Перепишите код так, чтобы дублирования не было.

Есть программа:

var m,s:integer;
begin
    writeln('Vvedite chislo M');
    readln(m);
    s:=1;
    if (s = 1) then
       writeln('soobchenie 1'); 
    if (s = m) then
        writeln('soobchenie 2'); 
end;

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

Урок 13.1 задача 4

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

Урок 13.1 задача 3

Выведите на экран таблицу умножения используя один цикл while и один repeat-until

program Project1;
var numb1, numb2: integer;

begin
  numb1:=0;
  while(numb1<9)do
    begin
      numb2:=0;
      numb1:=numb1+1;
      repeat
        numb2:=numb2+1;
        write(' ':2,numb1,'*',numb2,'=',numb1*numb2,' ':2);
      until (numb2>9);
      writeln();
    end;
  readln();
end. 

Урок 13.1 задача 2

Выведите на экран таблицу умножения используя только циклы вида while.

program Project1;
var numb1, numb2: integer;

begin
  numb1:=0;
  while(numb1<9)do
    begin
      numb2:=0;
      numb1:=numb1+1;
      while(numb2<9)do
        begin
          numb2:=numb2+1;
          write(' ':3,numb1,'*',numb2,'=',numb1*numb2,' ':2);
        end;
      writeln();
    end;
  readln();
end.

Урок 13.1 задача 1

Выведите на экран таблицу умножения используя только циклы вида repeat/until

program Project1;
var numb1, numb2: integer;

begin
  numb1:=0;
  repeat
    numb2:=0;
    numb1:=numb1+1;
    repeat
      numb2:=numb2+1;
      write(' ':2,numb1,'*',numb2,'=',numb1*numb2,' ':2);
    until (numb2>9);
    writeln();
  until (numb1>8);
  readln();
end.

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

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

Примечание: операции сдвига элементов массива оформите в виде подпрограммы.