fkn+antitotal

Ситуация

У нас есть блок, котором работает JS не зависимый от реакта (напр. карта), мы хотим отредндерить какой-то компонент в HTML, чтобы потом показать его во всплывающей подсказке на карте

В коде это может выглядеть как-то так:

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

program Project1;

var a,b: integer;
begin
  a:= 9;
  b:= 8;
  if (a > b) then
     writeln(12);
  readln();
end.

link

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

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

link

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

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

link

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

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

link

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

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

link

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

program lesson10_3;
var
  a, i : integer;
begin
  writeln('enter number a');
  readln(a);
  if a > 100 then
     for i := a downto 1 do
         write(i, ' ')
  else
     for i := 1 to a do
         write(i, ' ');
  readln();
end.

link

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

link

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

program lesson10_1;
var
  i : integer;
begin
  for i := 35 to 64 do
      if i mod 2 = 0 then
         writeln(i);
  readln();
end.

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

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