fkn+antitotal

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

Есть программа:

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

Урок 19. Задача 2.

У вас есть текстовый файл с информацией об итогах соревнований (каждая строка имеет формат: имя + произвольное число пробелов + балл 1 + произвольное число пробелов + балл 2):

Вася    16     485
Коля    17   555
Юра     18   61
..........

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

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

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Пример работы в консоли:

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

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

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Урок 18. Задача 11.

После открытия через граф. интерфейс одного из файлов .desktop текстовым редактором все ярлыки на рабочем столе "потеряли" иконки

Ubuntu 20

Один из варинтов решения проблем:

1. поставить Gnome Tweaks
2. Слева выбираем раздел Extentions и затем в правой области активируем переключатль для опции Desktop Icons
3. Перелогиниваемся

Ubuntu 20

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

1. Кликаем мышью в правом верхнем углу рабочего стола (там где значок звука)
2. В развернувшемся меню выбираем Power Off/Log Out -- кливаем по нему
3. В развернувшемся подменю кликаем по Log Out

Можно командой:

sudo apt install gnome-tweaks

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

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

program Lesson13;
var a,b,c,d,i: integer;
begin
  writeln('vvedite celoe 5-i znachnoe chislo:');
  readln(a);
  i:=1;
  c:=10;
  while (i<=5) do
  begin
    b:=a mod c;
    d:=b div (c div 10);
    i:=i+1;
    c:=c*10;
    write(d);
  end;
readln();
end.