В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
Можно было бы задать угадываемое число (пусть его вводит пользователь)
Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.
var i:integer;
begin
for i:=1 to 10 do
begin
writeln(777);
break;
end;
readln();
end.
-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).
Откройте файлы лога ошибок и доступа nginx (напр. для alpine-образа это делается так, там они перенаправлены) -- это самый быстрый и стандартный путь чтобы понять что происходит
Даны два массива по 20 элементов каждый (заполните случайными числами, так чтобы среди элементов массива при очередном запуске программы могли встретиться и отрицательные и положительные числа).
Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива - сравнение проводите пока не закончится та выборка, которая короче.
Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k
Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
Synchronizing state of osqueryd.service with SysV service script with /lib/systemd/systemd-sysv-install.
Executing: /lib/systemd/systemd-sysv-install enable osqueryd
update-rc.d: error: no runlevel symlinks to modify, aborting!
Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i: integer;
begin
for i:=35 to 117 do
begin
if ((i mod 3) = 0) then
write(i, ' ');
end;
for i:=45 to 99 do
begin
if ((i mod 2) = 1) then
write(i, ' ');
end;
readln();
end.