fkn+antitotal

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

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541

Решение:

var i,a:integer;
begin
  readln(a);
  for i:=1 to 5 do
  begin
    write(a mod 10);
    a := a div 10;
  end;
  readln();
end.

Консоль:

54321
12345

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

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var a, b: integer;
begin
  a :=(1 mod 15);
  b :=(15 div 1);
  write('a=', a, ' ', 'b=', b);
  readln();
end.

Консоль:

a=1 b=15

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

var a, b: integer;
begin
  a := 0;
  for b:= 1 to 25 do
  begin
    a:= a + 4;
    write(a, ' ');
  end;
  readln();
end. 

Консоль:

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100

Урок 15. Задача 15.

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k Указание: Проверку массива на соответствие условиям задачи вынести в подпрограмму (функцию)

Урок 15. Задача 14.

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

a1 # a2 # ..... # aN

Где:

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

Задача 13 Урок 6

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7».

var a, b, c: integer;
begin
  write('Введите числа A, B, C: ');
  readln(a, b, c);
  writeln('Число A и число B больше 17, а C > 7- ',
    (a > 17) and (b > 17) and (c > 7));
  readln();
end. 

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

Введите числа A, B, C: 5 6 8
Число A и число B больше 17, а C > 7- FALSE

Рассмотрим как можно эмулировать работу гугл-бота, используя браузер Хром.

Действуем так:

Видео-обзор конфигурации ниже для запуска консольного скрипта: https://youtu.be/Br9l8yXNHZE

Конфиг xdebug

По аналогии с обычной установкой (см. наш пример для линукса) в xdebug.ini укажем 5 опций:

zend_extension=xdebug
xdebug.mode=debug
xdebug.client_host=host.docker.internal
xdebug.client_port=9003
xdebug.idekey="netbeans-xdebug"

где:

Урок 15. Задача 13.

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

Урок 15. Задача 12.

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