fkn+antitotal

Урок 17

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

например:

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

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

для:
15teth47
получим s1='15' и s2='47'

Урок 17

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

Урок 17

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

var s: string;
    i, t: integer;

begin
  t := 0;
  writeln('Введите строку');
  readln(s);
   for i := 1 to length(s) do
     if (s[i] >= '0') and (s[i] <= '9') then
      inc(t);
  writeln(t);
  readln();
end.

КОНСОЛЬ

Введите строку
srdhgsedfhbsdfhb3245sfgbsdfxbds
4

Задача 7 Урок 10:

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;
begin

    for i:=1 to 100 do
        if ((i mod 7) = 0) then
                write(i, ' ');

    readln();
end.

КОНСОЛЬ:

7 14 21 28 35 42 49 56 63 70 77 84 91 98

Урок 17

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

var s: string;
    i: integer;

begin
  writeln('Введите строку');
  readln(s);
  if length(s) >= 5 then
  begin
   for i := 1 to length(s) do
     if ((i mod 5) = 0) then
      write(s[i], ' ');
  end
  else
    writeln('Error!');
  readln();
end.

КОНСОЛЬ

Урок 17

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

var s: string;
    c: char;
    i, t: integer;

begin
  t := 0;
  writeln('Введите строку');
  readln(s);
  writeln('Введите символ');
  readln(c);
  for i := 1 to length(s) do
    if (s[i] = c) then
      inc(t);
  writeln(t);
  readln();
end.

КОНСОЛЬ

Введите строку
wegsednhdrfgndszfsghwsrfh
Введите символ
d
3

Задача 6 Урок 10:

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

Урок 16

Пользователь вводит N (N отрезков на прямой, сохраните их в двумерный массив.
Напишите подпрограмму, которая определит - есть ли у них общее пересечение,
и если есть - вычислит координаты отрезка-пересечения.

Задача 5 Урок 10:

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Урок 16

Вспомогательная задача (можно решить, просто используя одномерные массивы):
Пользователь вводит 4 целых числа, считаем все их координатами на прямой,
а именно: первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2
Задача: напишите подпрограмму, которая определит какой отрезок является
пересечением этих двух заданных отрезков (если это пересечение вообще есть).