fkn+antitotal

Урок 9 Задача 14

Изучите код:
var s, t:integer;
f, b:boolean;
begin
f := true;
b := false;

if (f=true) then
t:=1
else
t:=2;

if (b=false) then
s:=3
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

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

В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.

Решение

Для просмотра этой информации можно установить из реестра плагин GitToolBox -- относительно этой функции он является аналогией плагина GitLens для vscode, но только в phpStorm

урок 10.2

В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.

решение

Возможная последовательность действий:

1. Выключаем имеющийся файл подкачки:
   

   sudo swapoff -a

2. Далее изменяем размер, это можно сделать по-разному, напр. командой:
   

   sudo dd if=/dev/zero of=/swapfile bs=1G count=8

   тут мы делаем размер раным 8 гигибайтам, где опции команды означают:

Шапка окна программы при открытии оказывается за переделами экрана.

Возможное решение

1. Кликаем по окну (если видна хотя бы какая-то его часть) или переводим на него фокус другим способом
2. Нажимаем комбинацию клавиш Alt+F7
3. После чего можем двигать его либо с помощью мыши (не нажимая ее клавиши) либо с помощью стрелок на клавиатуре.

Источник идеи: https://forum.ubuntu.ru/index.php?topic=...

Урок 9 задача 15

У вас есть три числа (три переменные) найдите их медиану .

Решение:

var
   a,b,c:integer;
begin
   readln(a,b,c);
   if (a<b)and(b<c)or(a>b)and(b>c) then
      writeln('mediana - ',b)
   else if (b<c)and(c<a)or(b>c)and(c>a) then
      writeln('mediana - ',c)
   else
      writeln('mediana - ',a);
   readln();
end.     

Урок 9 задача 8

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
1. С использованием логической операции and.
2. С вложенными блоками (без and, все опараторы if должны быть в полной форме).
3. Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

Решение:

Урок 9 задача 9

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).

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

Решение:

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

У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице)

var a, i, k:integer;
  begin
    a:=9;
    k:=0;
    for i:=1 to 13 do
      begin
        if ((i>a) and (k<3)) then
          begin
            write('-');
            k:=k+1;
          end
        else
          write('+');
      end;
    readln();
  end.