задача 2 урок 9:

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var a, b: real;
begin
  writeln('vvedite chislo a: ');
  readln(a);
  writeln('vvedite chislo b: ');
  readln(b);

  if (a > b) then
      writeln('12')
  else
      writeln('888');

  readln();
end.  

задача 1 урок 9:

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

var a, b: real;
begin
  writeln('vvedite chislo a: ');
  readln(a);
  writeln('vvedite chislo b: ');
  readln(b);

  if (a > b) then
      writeln('12');

  readln();
end. 

Задача 10 Урок 13.1

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

предыдущая:

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

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

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

var i, c, N, M :integer;
begin
  write('vvedi dliny stroki ');
  readln(N);
  write('vvedi kol-vo strok ');
  readln(M);
for i := 0 to (M) do
  begin
    for c := 1 to (N) do
      write(c, ' ');
    writeln();
  end;
readln();
end.   

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

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

1 2 3 4 5
1 2 3 4 5

var i, c :integer;
begin
for i := 0 to (1) do
  begin
    for c := 1 to (5) do
      write(c, ' ');
    writeln();
  end;
end.  

__Ответы на популярные вопросы относятся как к стажировке/обучению для MitLabs, так и к курсам IFF в целом (т.е. ко всем обучающимся участникам, способ выхода на нас не принципиален):__

**[Когда уже на работу???]**

Задача 7 Урок 13.1

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

Задача 6 Урок 13.1

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

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

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

Задача 19 Урок 13

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.