fkn+antitotal

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

Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:

какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы

необходимо считать данные числа в две строковые переменные s1 и s2.

например:
для:

wsefg34teth567gfd

получим s1='34' и s2='567'
для:

wsefg22teth88

получим s1='22' и s2='88'
для:

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

Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".

Задача 14 урок 13.1

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

1x1 = 1
1x2 = 2
......

program U13_1Z14;
var a, b: integer;
begin
   a:=1;
   b:=1;
   while (a<=10) do
   begin
     while (b<=10) do
       begin
         writeln(a, 'x', b, '=', a*b);
         b:=b+1;
       end;
      b:=1;
      a:=a+1;
      writeln();
    end;
  readln();
end.  

Задача 13 урок 13.1

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

M := 3;
N := 15;

Получим:

Задача 3 Урок 18:

Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.
Задание: найдите максимальное число, c учетом того, что числом считаются подряд идущие цифры не только по горизонтали, но и по вертикали.

Задача 2 Урок 18:

У вас есть текстовый файл с информацией об итогах соревнований (каждая строка имеет формат: имя + произвольное число пробелов + балл 1 + произвольное число пробелов + балл 2):

Вася    16     485
Коля    17   555
Юра     18   61
..........

-- где:
слева указаны имена участников, а справа число баллов.
Первое число в каждой строке -- штрафные баллы набранные участниками, а второе число -- "положительные баллы", то есть если у нас есть строка:

Задача 1 Урок 18:

Создайте файл в вашей операционной системе и выведите в консоль всё его содержимое.

var f1: text;
    filename, s: string;
begin
 filename := 'F:\Pascal\урок 18\input.txt';
 assign(f1, filename);
 reset(f1);
 writeln('=======Содержимое файла=======');
 while not eof(f1) do
  begin
   readln(f1, s);
   writeln(s);
  end;
 writeln('==============================');
 readln();
end.

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

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.

var i, p: integer;
    s: string;
begin
  p := 0;
  writeln('vvedi stoky');
  readln(s);
    for i := 1 to length(s) do
      if((s[i] >= '0') and (s[i] <= '9')) then
        inc(p);
    writeln(p);
  readln();
end.
          

Задача 2 Урок 16

Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.

var i, p: integer;
    s: string;
begin
  p := 0;
  writeln('vvedi stoky');
  readln(s);
  if( length(s) >= 5) then
    begin
      for i := 1 to length(s) do
        if((i mod 5) = 0) then
          writeln(s[i]);
    end
  else
    writeln('ERROOR');
  readln();
end.            

Задача 1 Урок 16

Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.

var i, p: integer;
    s, k: string;
begin
  p := 0;
  writeln('vvedi stoky');
  readln(s);
  writeln('vvedi simvol');
  readln(k);
  for i := 1 to length(s) do
    begin
      if(s[i] = k) then
        p := p + 1;
    end;
  writeln(p);
  readln();
end.