fkn+antitotal

Задание 14 Урок 13.1

С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9, начнётся она как-то так:

1x1 = 1
1x2 = 2

var i,i1: integer;
begin
  i := 1;
  i1 := 1;

  for i := 1 to 9 do
  begin
    for i1 := 1 to 9 do
      writeln(i, ' * ', i1,' = ', i * i1);
      writeln();
  end;
  readln();
end. 

Задание 3 Урок 13.1

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:

Задание 12 Урок 13.1

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат

Задание 11 Урок 13.1

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

Решил выполнить эту задачу:
Частичная автоматизация проверки задач на PHP

Как я понимаю: в визуальной части будет форма на PHP, где будет указываться .pas файл задачи на Pascal, которую необходимо решить. (кнопка с выбором нужного файла через проводник).

Далее PHP скрипт будет компилировать .pas в exe, использовав какой-нибудь компилятор Pascal. На Windows я скачивал программу Free Pascal и запускал из cmd встроенный компилятор внутри этой программы. Таким образом получал exe файл задачи.

Задание 10 Урок 13.1

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

Задание 9 Урок 13.1

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было: (см. задание в уроке)

6. Выведите на экран сумму чисел 5 и 7.3

begin
  writeln (5 + 7.3);
  readln();
end.         

7. Выведите на экран сумму значений двух переменных, со значениями 8 и 71.3 (предварительно объявите эти переменные и присвойте им указанные значения).

var  a : integer;
     b : real;
begin
  a := 8;
  b := 71.3;
  writeln (a + b);
  readln();
end.   

8.Выведите на экран сумму чисел 9 и 4.3, записав результат в переменную и используя для вывода уже значение переменной.

Урок 15 (задача 1)

Знаю, что это самый-самый способ), но, к сожалению, в других попытках был сбой, и я на тугой конец сделал это:)

Задание 8 Урок 13.1

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5

var i,i1 : integer;

begin
  i := 1;
  i1 := 1;
  for i :=1 to 2 do
    begin
      repeat
        write(i1, ' ');
        i1 :=i1+1;
      until (i1 > 5);
        i1 :=1;
    	writeln();
    end;
  readln();
end.