fkn+antitotal

Задача 4 урок 16

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

Задача 3 урок 16

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

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
    inc(n); //процедура n:=n+1
  end;

 writeln('V stroke ',n,' chisel.'); // выводим массив
 readln();
end.

Задача 2 урок 16

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

var s: string;
    i: integer;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
  for i:=1 to length(s) do
  begin
    if length(s) < 5 then
      begin
        writeln('Error');
        break;
      end
    else
      if (i mod 5 = 0) then
        write(s[i],' ');
  end;

  readln();
end.

Задача 1 урок 16

Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.

var s: string;
 i, n: integer;
    k: char;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
  writeln('vvedite simvol:');
  readln(k);
  n:=0;
  for i:=1 to length(s) do
  begin
    if (s[i] = k) then
       n := n + 1;
  end;

  writeln('Otvet: v vashey stroke simvol "',k,'" vstrechaetsya ',
    n, ' raz.');
  readln();
end.

Задача 9 урок 15

Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы второго массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.

Задача 9 урок 15

Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы второго массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.

Задача 8 урок 15

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

Примечание: операции сдвига элементов массива оформите в виде подпрограммы.

Задача 8 урок 15

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

Примечание: операции сдвига элементов массива оформите в виде подпрограммы.

Задача 20 урок 15 "Банкомат"

Пользователь вводит целое число - сумму в некоторой валюте, требуется выдать эту сумму купюрами наибольшего достоинства.
Напишите программу, которая в качестве результата скажет как именно надо разменять указанную сумму купюрами наибольшего достоинства (укажет количество для купюры каждого типа)

Задача 8 урок 15

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

Примечание: операции сдвига элементов массива оформите в виде подпрограммы.