fkn+antitotal

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

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

Например, из строки:

rew2@#$$#435tr353453t4er4

должны быть выделены подстроки:

2
435
353453
4
4

Подсказка: массив должен быть "of string".

Решение:

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

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

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

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

    wsefg34teth567gfd

получим s1='34' и s2='567'
для:

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

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

Решение:

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

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

Решение:

program u17z03;
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('Kolichestvo cifr v stroke: ',n);
  readln();
end. 

Консоль:

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

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

Решение:

program u17z02;
var s:string;
  i:integer;
begin
  writeln('vvedite stroku:');
  readln(s);
  i:=0;
  while i < length(s) do
  begin
    i:=i+5;
    write(s[i],', ');
  end;
  readln();
end. 

Консоль:

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

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

Решение:

program u17z01;
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]='k') then
      n:=n+1;
  end;
  writeln('Simvol "k" v vashey stroke vstrechaetsya ',n,' raz(a)');
  readln();
end.

Консоль:

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

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием if() и break;

Решение c использованием if():

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

Есть код:

var a, b, c, d : integer;
begin
writeln('vvedite a, b, c, d');
readln(a, b, c, d);
if (a > b) then
if (a > c) then
begin
if (a > d) then
writeln ('Выбираем a');
writeln ('Может выбрали a');
  end;
readln();
end.  

-- исправьте форматирование.

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

Есть код:

var a,b : integer;
begin
  readln(a);
  if (a > 2) then
    writeln(a)
  else
  writeln(2);
 
readln();
end. 

Если он отформатирован неправильно - исправьте это, и объясните для себя почему нужно исправить именно так.

var a,b : integer;
begin
  readln(a);
  if (a > 2) then
    writeln(a)
  else
    writeln(2); //подвинул только эту строчку
  readln();
end. 

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

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Решение: