fkn+antitotal

Задача 10. Урок 9.

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
1. сумма баллов Коли и Миши больше 20
2. или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

Ubuntu 20 c этим явно есть проблемы и стандартная комбинация не работает.

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

В моем случае выключение привязке рабочего стола GNOME к этим клавишам не помогло:

gsettings set org.gnome.desktop.wm.keybindings switch-to-workspace-left "['']"
gsettings set org.gnome.desktop.wm.keybindings switch-to-workspace-right "['']"

(совет отсюда)

Урок 12.2 Задача 2

У вас есть программа, использующая цикл while:

	
var
   i: integer;
begin
  i:=1;
  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Объясните что делает эта программа (что будет выведно на экран и почему)
Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

Решение:

Урок 12.2 Задача 1

	
var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

Решение:

Урок 12.1 Задача 5

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Решение:

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

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

Решение:

program u12z04;
var i:integer;
begin
  i:=35;
  repeat
    if ((i mod 6)=0) then
      write(i,' ');
    i:=i+1;
  until (i>117);
  writeln('Poka');
  readln();
end.

Консоль:

36 42 48 54 60 66 72 78 84 90 96 102 108 114 Poka

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

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

Решение:

program u12z03;
var i:char;
begin
  repeat
    writeln('vvedite simvol');
    readln(i);
    if (i<>'#') then
      writeln('&');
  until (i='#');
  writeln('Poka');
  readln();
end.

Консоль:

Урок 12.1 Задача 2

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

Решение:

Урок 12.1 Задача 1

Выведите на экран, все числа от 55 до 9236.

Решение:

var
  i:integer;
begin
  i:=55;
  repeat
    write(i, ' ');
    i:=i+1;
  until (i>9236);
  readln();
end.

Делаем так:
Заходим в настройки и далее в дереве слева выбираем путь вроде:

Editor
->Code Style
-> Выбираем ваш язык

Настройки отступов появятся справа во вкладке Tabs and Idents