fkn+antitotal

Задача 2 Урок 9:

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

program Project2;
var
  a,b:integer;
begin
     writeln('vvedite chislo a');
     readln(a);
     writeln('vvedite chislo b');
     readln(b);
     if (a>b) then
         writeln(12)
     else
         writeln(888);
    readln();
end.

Вывод консоли:

vvedite chislo a
2
vvedite chislo b
3
888

Задача 1 Урок 9:

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

program Project1;
var
  a,b: integer;
begin
     writeln('vvedite 1 chislo');
     readln(a);
     writeln('vvedite 2 chislo');
     readln(b);
     if (a>b) then
       writeln(12);
     readln();
end.

Вывод консоли:

vvedite 1 chislo
2
vvedite 2 chislo
1
12

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

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

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

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var a, b, c: integer;
begin
  a:=15;
  b:=a mod 2;
  c:=a div 1;
  write(b, ' ', c);

  readln();
end

.

КОНСОЛЬ:

1 15

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

var i: integer;
begin
  i:=4;
  while (i<=100) do
  begin
    write(i, ' ');
    i:=i+4;
  end;

  readln();
end.

КОНСОЛЬ:

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100

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

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.

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

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

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

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

Пример:

Ubuntu 22

Похоже на инструкцию для Ubuntu 20, но в Settings надо выбрать раздел "Keyboard"

Ubuntu 20

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