fkn+antitotal

Урок 16(Решенная задача номер 2)

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

var s: string;
    i, c : integer;

begin
 writeln('vvedite stroky');
 readln(s);
 if (length(s) >= 5) then
 begin
   for i:= 1 to length(s) do
    if (i mod 5 = 0) then
     writeln(s[i]);
 end
 else writeln('osibka');
end.

.

Урок 16 (Решенная задача 1)

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

var s : string;
    i, c : integer;
begin
  c := 0;
  writeln('vvedite stroky');
  readln(s);
  for i := 1 to length(s) do
   if (s[i] = 'k') then
    c := c + 1;
  writeln('kol-vo k = ', c);
end.

Урок 15 (Решенная задача 13)

Дан массив длиной N, состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.

Урок 15 (Решенная задача номер 11)

Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:

a1 # a2 # ..... # aN

где
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)

Урок 15(Решенная задача 10)

10) Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.

Immer only supports setting array indices and the 'length' property

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

Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран.

Объявите три переменные типа char, присвойте им значения и выведите эти значения на экран:

одним вызовов write (все три) -- т.е. передав несколько аргументов.

var a, b, c : char;
begin
   a := 'f';
   b := '%';
   c := 'b';
   writeln(a, ' ', b, ' ', c);
   readln();
end.
          

отдельно вызывая writeln для вывод значения каждой переменной

Сравните число 8 и число 9.55, выведите результат сравнения на экран.

begin
   writeln(8>9.55, ' ', 8<9.55);
   readln()
end.

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

[к оглавлению]

Иногда нам нужно извлечь данные не в том формате, в котором они хранятся в таблицах. Например: