fkn+antitotal

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

Выведите на экран, все числа N единиц (число задает пользователь), например, для N=2, должно быть выведено::

11

для N=9, должно быть выведено:

111111111

Решение:

var a,i: integer;
begin
  writeln('insert number');
  readln(a);
  for i:=1 to a do
    write(1,'');
  readln();
end.

Актуальное

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

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

На примере 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.