fkn+antitotal

1. Добавление русской раскладки
2. Настройка удобных горячих клавиш для переключения раскладки

Урок 15 задача 5

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

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

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

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

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

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

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

1 2 3 4 5
1 2 3 4 5

var a, b: integer;
begin
  a := 1;
  while a <= 2 do
    begin
      for b := 1 to 5 do
        write (b,' ');
      writeln();
      a := a+1;
    end;
  readln();
end.

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

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

var a ,b : integer;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(a);
  if (a > 0) then
    for b := 1 to a do
     begin
       if not odd(b)then
         write(b,' ');
       writeln();
     end
  else
       writeln('oshibka');
  readln();
end.  

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

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

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

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

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

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

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

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

var i, j: integer;
begin
  i := 1;
  repeat
     j := 1;
     while j <= 9 do
        begin
          write (i,'*',j,'=',i*j,' ');
          writeln();
          j := j +1;
        end;
     i := i + 1;
  until i > 9;
  readln();
end.