Питон 1) Вычислите значение в градусах угла, синус которого равен 0.5. У вас должно получиться 30 или очень близкое к этому значение. Если нет, исправьте ошибки.
2) Вычислите √2 двумя : с функции и с операции возведения в степень.

Утром в 7 меня как обычно будит будильник, который я поставил вчера вечером, зная что мне к восьми в школу. За окном идет дождь. Я открываю программу погода на телефоне и вижу что дождя в прогнозе небыло. Но сегодня данные обновились и все утро будет дождливо. Ставлю еду в микроволовку и через 3 минуты пищащий сигнал услужливо информирует меня что уже завтрак горячий. Из-за дождя до школы придется идти по другой стороне улицы что на 5 минут дольше. Придется брать зонт и выходить на 5 минут раньше. Похоже физкультура будет в зале, а значит зачета по бегу не будет. Проверяю смс на телефоне, друг пишет что сегодня заболел и не придет в школу. Мда, а у нас были планы после уроков. Ситуация меняется стремительно. Ушел в школу. День как обычно. Задали много заданий, придется планировать что и когда мне делать в каледарике, иначе не успею. Не люблю использовать компьютерный или телефонный планировщик. привык все отмечять в каледаре блокнота. Вот так информация откружает нас каждый день, иногда непрогнозируемо меняется и приходится подстраиваться. Хорошо что микроволновка исправно греет 3 минуты и будильник звонит всегда в заданное время.

Var
  m, n, nok, t, i: longint;

begin
  Write('Введите через пробел два целых положительных числа- ');
  Readln(m, n);
  {Сначала ищем НОК - наименьшее общее кратное}
  if m = n then begin
    nok := m;
    t := m * m
  end
  else begin
    t := m * n;
    repeat
      if m > n then m := m - n else n := n - m
    until m = n;
    nok := t div m
  end;
  {Теперь умножаем НОК на числа натурального ряда,
   пока не дойдем до величины t=m*n}
  if nok = t then Writeln('Требуемых чисел нет')
  else begin
    i := 1;
    while (nok * i < t) do
    begin
      Write(nok * i, ' ');
      i := i + 1
    end
  end
end.

Тестовое решение:
Введите через пробел два целых положительных числа- 8 120
120 240 360 480 600 720 840

Введите через пробел два целых положительных числа- 35 620
4340 8680 13020 17360

Введите через пробел два целых положительных числа- 7 13
Требуемых чисел нет