Давайте разберем каждую из ваших задач по порядку, используя язык программирования Паскаль. Я объясню, как решать каждую задачу, и приведу пример кода.

Для решения этой задачи нам нужно пройтись по всем целым числам от 1 до K и проверить, заканчивается ли каждое число на 3. Это можно сделать с помощью оператора остатка от деления (mod).

1. Запросите у пользователя значение K.
2. Используйте цикл для перебора чисел от 1 до K.
3. Проверьте, если число mod 10 равно 3.
4. Если условие выполняется, выведите число на экран.

Пример кода:

var
  K, i: integer;
begin
  write('Введите значение K: ');
  readln(K);
  for i := 1 to K do
  begin
    if (i mod 10 = 3) then
      writeln(i);
  end;
end.

Здесь нам нужно также пройтись по всем целым числам от 1 до K, но на этот раз мы будем суммировать четные числа.

1. Запросите у пользователя значение K.
2. Создайте переменную для хранения суммы и инициализируйте ее нулем.
3. Используйте цикл для перебора чисел от 1 до K.
4. Проверьте, если число четное (число mod 2 равно 0).
5. Если условие выполняется, добавьте число к сумме.

Пример кода:

var
  K, i, sum: integer;
begin
  write('Введите значение K: ');
  readln(K);
  sum := 0;
  for i := 1 to K do
  begin
    if (i mod 2 = 0) then
      sum := sum + i;
  end;
  writeln('Сумма четных чисел: ', sum);
end.

Для этой задачи нам нужно проверить каждое трехзначное число от 100 до 999 на наличие заданной цифры.

1. Запросите у пользователя цифру (от 0 до 9).
2. Используйте цикл для перебора чисел от 100 до 999.
3. Проверьте, содержит ли число заданную цифру. Это можно сделать, преобразовав число в строку и используя функцию поиска.
4. Если цифра найдена, выведите число на экран.

Пример кода:

var
  digit: char;
  i: integer;
begin
  write('Введите цифру (0-9): ');
  readln(digit);
  for i := 100 to 999 do
  begin
    if (pos(digit, IntToStr(i)) > 0) then
      writeln(i);
  end;
end.

Теперь у вас есть решения для всех трех задач на языке Паскаль. Если у вас возникнут дополнительные вопросы, не стесняйтесь спрашивать!