fkn+antitotal

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

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

var m, n, i, j : integer;
begin
  writeln('Введите число  M');
  readln(m);
  writeln('Введите число N');
  readln(n);
  for i := 1 to m do
    begin
      for j := 1 to n do
        write(j, ' ' );
        writeln();
    end;
  readln();
end.    

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

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

Решение:

var i, r:integer;
begin

  for i:=1 to 5 do
    write(i, ' ');
    writeln();
    for r:=1 to 5 do
      write(r, ' ');
  readln();
end.       

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

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

Решение:

урок 10.1

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

//я попытался зделать но у меня не получилось ,не понимаю почему выводится true и false

program Project1;
 var
   i:integer;
begin
  for i:=35 to  117  do
    writeln((i mod 2)=0);
    writeln((i mod 2)=1);
  readln();
end.
        

Урок 15. Задача 6.

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

Урок 15. Задача 5.

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

Урок 15. Задача 3.

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

type ar = array[1..7] of integer;
var i, a : integer;
    Arr : ar;
begin
  for i:=1 to 7 do // инициализация
    readln(Arr[i]);
  a := Arr[1]; // первый элемент массива
  for i := low(Arr) to high(Arr) do
  begin
    if a < Arr[i] then
      a := Arr[i];
  end;
  write(' ', a);
  readln();
end. 

Урок 17 Задача 09

Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно), например:

для строки:

    5533g

вернуть:

    53g

для строки:

    b5ghh55788oooggtttttt

вернуть:

Урок 17 Задача 08

Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):

    abc и bca

-- можно

    abc и baa

-- нельзя

    abcc и cbac

-- можно

    abc4c и cb55ac

-- нельзя

Решение:

Урок 17 Задача 07

Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:

rewt34t54346t566

то в ответ программа должны вывести:

r
ew
t34
t543
46t56
6

Решение: