Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.
var s :string;
i, n :integer;
begin
s := 'Lorem5Ipsum7is1simply1dummy3text8of9the0printing4and6typesettin2industry';
n := 0;
for i := 1 to length(s) do
if (s[i] >= '0') and (s[i] <= '9') then
n := n + 1;
writeln(n);
end.
Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.
var s :string;
n :integer;
begin
s := 'Lorem Ipsum is simply dummy text of the printing and typesetting industry';
n := 0;
if length(s) < 5 then
writeln('Error')
else
while (n <= length(s)) do
begin
n := n + 5;
writeln(s[n]);
end;
end.
Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.
var s :string;
k :char;
i, n :integer;
begin
s := 'Lorem Ipsum is simply dummy text of the printing and typesetting industry';
writeln('Enter character : ');
readln(k);
n := 0;
for i := 1 to length(s) do
if k = s[i] then
n := n + 1;
writeln(n);
end.
В большом проекте поиск ссылок просто заканчивается "Ничем" -- прогресс бар закрывается, ничего не изменяется - все это если ставить галочку "serach for references" при перемещении файла
Пользователь вводит N (N
Напишите подпрограмму, которая определит - есть ли у них общее пересечение, и если есть - вычислит координаты отрезка-пересечения.
Вспомогательная задача (можно решить, просто используя одномерные массивы):
Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:
первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2
Задача: напишите подпрограмму, которая определит какой отрезок является пересечением этих двух заданных отрезков (если это пересечение вообще есть).
Вспомогательная задача (можно решить, просто используя одномерные массивы):
Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:
первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2
Задача: напишите подпрограмму, которая определит пересекаются ли данные отрезки.
Пользователь вводит подряд 8 целых чисел, сохраните их в двух разных двумерных массивах:
1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу
Обойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:
