fkn+antitotal

Задача 8 Урок 18

Решите предыдущую задачу:

Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):

Вася 485
Коля 555
Юра 61
..........
....
end // признак завершения ввода

Задача 7 Урок 18

Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):

Вася 485
Коля 555
Юра 61
..........
....
end // признак завершения ввода

Задача 6 Урок 18

Пользователь вводит в консоль строку вида:

Имя 123

-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;

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

Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125.

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

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

var s:string; i,k:integer;
begin
  s:='fdg123F345sdfg48';
  for i:=1 to Length(s) do
    if (s[i]>='5')and (s[i]<='9')then
      k+=1;
  write(k);
  readln();
end.   

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

Есть строка, в которой, среди прочих символов содержатся 3 числа, выделите эти в массив.
Проверьте работу программы на строках:

123fdgF34sdf45g
123fdgF34sdfg45
fdg123F34sdfg45

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

У вас есть массив:
▶
?
1
2
3
4

type
myArr = array[1..8] of integer;
var
a: myArr;

-- целочисленный тип из 8 элементов.

Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #

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

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

var x:string; i,b:integer;
begin
  readln(x);
  for  i:=1 to length(x) do
    if (x[i]>='0')and(x[i]<='9') then
      b+=1
    else
    begin
      write('oshibka');
      break;
    end;
  if b=length(x) then
    write(x);
  readln();
end.                       

задача 8 урок 12.1

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

задача 7 урок 12.1

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

var a:integer;
begin
a:=35;
 repeat
   if (a mod 6)=0 then
     writeln(a);
   a:=a+1;
  until a>117;
readln();
end.