fkn+antitotal

Задание 12 Урок 9

Есть программа:

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;          

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

В Ubuntu Linux

1. Идем на страницу загрузки https://www.virtualbox.org/wiki/Downloads и выбираем раздел "Linux distributions" или сразу для линукса: https://www.virtualbox.org/wiki/Linux_Downloads
2. Выбираем в списке нашу ОС, например Ubuntu 22.04 - начнется загрузка .deb пакета
3. После завершения загрузки, устанавливаем пакет с диска, например, с помощью apt

В Windows

• Идем на страницу: https://www.virtualbox.org/wiki/Downloads

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

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

На вход вашей программы подается строка вида:

5 + 6 -34 + 56  - 7 + 2

("сколько угодно" чисел с операциями суммы и разности в любом порядке). Вычислите результат (пробелов между символом операции и числом может и не быть)

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

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

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

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

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

Имя         123

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

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

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

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

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

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

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

var
  a, code : integer;
  s: string;
begin
  write('Введите число: ');
  readln(s);
  val(s, a, code);
  if not (code = 0) then
    write ('Ошибка')
  else
    write (a);
  readln();
end.

Вывод в консоли:

Введите число: 344
344

Введите число: dfh345sdg
Ошибка

Урок 17 Задача 9:

Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно)