fkn+antitotal

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

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

Урок 13. 1 Задача 9

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

program  u13z9;
var m, n, i, j: integer;

begin
   writeln('vvedite chislo m');
   readln(m);
   writeln('vvedite chislo n');
   readln(n);
   for i:=1 to m do
     begin

     for j:=1 to n do
     write(j,' ');
     writeln();

     end;
 readln();
end.       

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

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

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

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

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

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

program  u13z3;
var i,j: integer;

begin
 i:=1;
 j:=1;
 repeat
   while(j<10) do
   begin
    writeln(i , '*', j,' ', i*j);
    j:=j+1;
    i:=i+1;
   end;
 until(i>9) ;

 readln();
end.        

Урок 17. Задача 9.

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

var s, s_2 :string;
    i :integer;
 
begin
  s := 'b5ghh55788oooggttttt';
  s_2 := s[1];
  for i := 1 to length(s) do
    if s[i] <> s[i + 1] then
      s_2 := s_2 + s[i + 1];
  writeln(s_2);
end.

Урок 17. Задача 8.

Проверить можно ли строки из m перестановкой символов получить строку n.

Урок 17. Задача 7.

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

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

Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
Например, из строки: 'rew2@#$$#435tr353453t4er4'
должны быть выделены подстроки:

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

Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:
"какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы"
необходимо считать данные числа в две строковые переменные s1 и s2.