fkn+antitotal

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

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

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

var s:string;  i,n:Integer;
begin
    readln(s);
    n := 0;
    for i:=1 to Length(s) do begin // обходим строку в цикле
        if (s[i]>='0')and(s[i]<='9') then inc(n);
    end;

    writeln('This string contains ',n,' digits.'); // выводим массив
    readln();
end.
        

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

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

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

var s: string;
    i, n: integer;
begin
  write('enter an arbitrary string ');
  readln(s);
  writeln();
  n := length(s);
  if n < 5 then
   writeln('ERROR')
  else
   for i := 1 to n do
    if i mod 5 = 0 then write(s[i], ' ');
  readln();
end.    

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

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

Задача 5 Урок 16

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

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

Есть функция, которая считает сумму четырех чисел:
function sum4(a, b, c, d: integer): integer;
begin
result := a + b + c + d;
end;
Реализуйте обертку над sum4(), которая делает то же самое, но имеет сигнатуру вида:
type ar = array[1..2, 1..2] of integer;

function searchRes2(a1:ar): integer;

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

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