fkn+antitotal

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

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

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

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

Имя         123

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

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

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

123ret34#2145esrt5

такое число только одно и это:

2145

(сначала выделите эти числа из строки и запишите их в массив (of integer), а затем уже посчитайте число тех, что больше 125)

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

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

program u18z3;
var
  a,code,i,n: integer;
  s: string;
begin
  writeln('Vvedite stroku');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
  begin
    val(s[i], a, code);
    if  (code=0) and (a>=5) then
      n:= n+1;
  end;
  write(n);
  readln();
end.

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

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

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

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

program u18z1;
var
  intChislo, Code : Integer;
  s: string;
begin
  writeln('Vvedite chislo');
  readln(s);
  Val(s, intChislo, Code);
  if (Code<>0) then
    writeln('Error')
  else
    writeln(intChislo);
  readln();
end.    
         

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

В примере №2 есть код:

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

Модифицируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
 
  readln();
end. 

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

Решение:

Удаление

sudo ./displaylink-driver-5.6.1-59.184.run uninstall

Для других ОС - в т.ч. Debian

Есть интересный пакет: https://github.com/AdnanHodzic/displayli...

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

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

Решение: