fkn+antitotal

Пользователь вводит произвольную строку, посчитайте количество чисел
в ней - тех, что больше 125. Например, в строке:
123ret34#2145esrt5
такое число только одно и это:
2145
(сначала выделите эти числа из строки и запишите их в массив (of integer),
а затем уже посчитайте число тех, что больше 125) }

Задание 3 урок 18

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

Задание 2 Урок 18

var
  i, C : Integer;
  s: string;
  begin
   writeln('vvedite chislo:');
   readln(s); // <-- получаем строковое представление числа
   for i:= 1 to length(s) do
     if (s[i] >= '5') then
       C:= C +1;
   writeln('Chislo >= 5 v stroke -  ' ,c, ' raz' );

   readln;
  end.
      

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

Задание 1 Урок 18

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.

Цикл и программа должны завершиться, когда число z станет отрицательным.

У вас есть число z=5. Пользователь вводит числа в цикле, если хотя бы одно введенное число число было равно 77, то увеличивайте число z на 1 в ответ на каждое введенное число, до тех пор пока пользователь не введет число 55, если такое произойдет то в ответ на это и любое последующее число, уменьшайте z на 1.

Цикл и программа должны завершиться, когда число z станет отрицательным.
(в начале цикла, если первое введенное число не равно ни 55, ни 77, считаем, что мы должны увеличивать z на 1 пока не встретим 55 или 77, которые укажут на конкретные действия).

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541
(используйте опеции div и mod, подразумевается решение через цикл )

var i,a,b:integer;
begin
  writeln('Vvedite 5-znachnoe chislo: ');
  readln(a);
  for i:=1 to 5 do
  begin
     b:=a mod 10;
     write(b);
     a:=a div 10;
  end;

end.

Консоль:

Vvedite 5-znachnoe chislo: 
90001
10009

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var b,c:integer;
begin
  b:=15 div 10;
  c:=15 mod 10;
  write('pervaia cifra: ',b,', posledniya cifra: ',c);
end. 

Консоль:

pervaia cifra: 1, posledniya cifra: 5

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:

4 8 12 16.......100

var i:integer;

begin
  i:=4;
  while i<101 do
begin
   write (i,' ');
   i:=i+4;
end;
end. 

Консоль:

4 8 12 16 20 24 28 32 36 40 44 
48 52 56 60 64 68 72 76 80 84
 88 92 96 100

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.