fkn+antitotal

Решение задачи 5 из главы 9

5. Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

program Project5;
var A, B : integer;
  result : boolean;
begin
  writeln('Vvedite dva zelyh chisla:');
  read(A, B);
  result := (A > B);
  if(result = true) then
  write('Maksimalnoe chislo: ', A)
  else
  write('Maksimalnoe chislo: ', B);
  readln();readln();
end. 

Решение задачи 4 из главы 9

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

Решение задачи 3 из главы 9

3. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

program Project3;
var A, B, C : integer;
  result : boolean;
begin
  writeln('Vvedite tri zelyh chisla:');
  read(A, B, C);
  result := (A > B) AND (A < C);
  if(result = true) then
  write('A mezhdu B i C. Otvet: da.')
  else
  write('A mezhdu B i C. Otvet: net.');
  readln();
end.

Решение задачи 2 из главы 9

2. Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

program Project2;
begin
  if (10 > 30) then
     writeln('Otvet: 12')
     else
       writeln('Otvet: 888');
  readln();
end.

Решение задачи 1 из главы 9

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

program Project1;
begin
  if (50 > 30) then
     writeln('Otvet: 12');
  readln();
end.

Урок 18 задача 2

Решение задач из главы 8

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

Решение задач из главы 7

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

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

Решение задач из главы 6

7. Вычислите в тетради значения выражений (по шагам как в примерах урока выше):

Для решения проблемы просто поставим пакет:

sudo apt-get update
sudo apt-get install ttf-ancient-fonts

Источник: https://askubuntu.com/a/737285