fkn+antitotal

Задача 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. 

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

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

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

Что такое записи

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

Задача 3 Урок 23

Есть массив массив уникальных, ненулевых элементов (целые числа, 10 элементов):

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

Есть массив (пусть не более 10 элементов):

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

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

program Hello;
var i:integer;
begin
i:=1;
while i <> 0 do
begin
  writeln('vvedite hcislo');
  readln(i);
  if i mod 2 = 0 then
   writeln('chetnoe')
  else
   writeln('nechetnoe');
end;   
end.

Консоль: