fkn+antitotal

Актуальное

Страница релизова Убунту: https://releases.ubuntu.com/ - нам нужна последняя LTS версия.

На данный момент мы используем Ubuntu 24.04, скачать можно так:

1. Идем на страницу https://releases.ubuntu.com/noble/
2. И по первой же ссылке с текстом "64-bit PC (AMD64) desktop image" качаем образ ОС

Альтренатива для маломощных машин - легкая версия

Используйте куда более легкий дистрибутив Lubuntu https://lubuntu.me/downloads/

На примере Linux

Качаем тот же актуальный образ, что используется и для других целей

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

Пользователь вводит произвольную строку, перестройте её в "ёлочку".

program u17z7;
var
  s: string;
  i,n,m: integer;
begin
  n:= 0;
  m:= 1;
  writeln('Vvedite stroky:');
  readln(s);
  for i:=1 to length(s) do
  begin
    n:=n+1;
    write(s[i]);
    if (n=m) then
    begin
      writeln ();
      m:=m+1;
      n:=0;
    end;
  end;
  readln();
end.  

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

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

program u17z9;
var a,b: string;
    i: integer;
begin
  writeln('vvedite stroku:');
  readln(a);
  for i:=1 to length(a) do
  begin
    if a[i]<>a[i-1] then
      b:=b+a[i];
  end;
  for i:=1 to length(b) do
    write (b[i]);
readln;
end.

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

Проверить можно ли строки из m перестановкой символов получить строку n.

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

Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.

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

Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:

какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы

необходимо считать данные числа в две строковые переменные s1 и s2.

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

Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".

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

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

program u17z3;
var s: string;
    i,n: integer;
begin
  writeln('vvedite stroku:');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
      n:=n+1;
  end;
  write('Chicel= ',n);
  readln;
end.  

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

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

program u17z2;
var s: string;
    i,n: integer;
begin
  writeln('vvedite stroku:');
  readln(s);
  if length(s)>=5 then
    for i:=1 to length(s) do
    begin
      if (i mod 5 = 0) then
        writeln(s[i]);
    end
  else
    writeln('owibka');
  readln();
end.