fkn+antitotal

http://fkn.ktu10.com/?q=node/8539
Пользователь вводит четыре числа, найдите из них максимальное.

program Project1;
var a,b,c,d,max: integer;
begin
  writeln('vvedite chisla: ');
  readln(a,b,c,d);
    if (a>b)and(a>c)and(a>d) then max:=a;
    if (b>a)and(b>c)and(b>d) then max:=b;
    if (c>b)and(c>a)and(c>d) then max:=c;
    if (d>b)and(d>c)and(d>a) then max:=d;
    writeln ('maximalnoe chislo', ' ', max);
         readln();
       end.  

http://fkn.ktu10.com/?q=node/8539
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and (все операторы if должны быть в полной форме).
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

http://fkn.ktu10.com/?q=node/8539
Пользователь вводит два числа, найдите из них максимальное

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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

Задача 7 урок 20

Дано натуральное число N. Вычислите сумму его цифр.

program u20z7;
var n:integer;

function fun(m:integer):integer;
var a:integer;
begin
  if (m<10) then
    result:=m
  else
    result:=m mod 10 + fun(m div 10);
end;

begin
  writeln('vvedite n');
  readln(n);
  writeln(fun(n));
  readln();
end.

Задача 2 урок 20

Дано целое положительное число N. Выведите на экран все число от 1 до N (по возрастанию).

program u20z2;
var n,m:integer;
function fun(n1,m1:integer):integer;
begin
   write(m1,' ');
   if ((n1)>m1) then
     result:=fun(n1,m1+1);
end;
begin
    writeln('vvedite n');
    readln(n);
    m:=1;
    fun(n,m);
    readln();
end.  

Например так:

version: "3.9"
services:
  postgres:
    image: "postgres:12.7"
    container_name: my-test-postgres
    ports:
     - "29132:5432"
    environment:
      POSTGRES_PASSWORD: 1234
      POSTGRES_USER: devuser
      POSTGRES_DB: devdb

-- после такой настроки для пользователя devuser в постгре будет включена авторизация по паролю (именно для него) и получится избежать ошибки вида:

password authentication failed for user

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

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

var a: integer;
procedure interlink(var i: integer);
begin
  writeln('vvedite 4islo -  ');
  readln(i);
  a:=i;
  writeln('i =', i);
  writeln('a =', a);
end;
begin
  interlink(a);
  writeln('a = ', a);
  readln();
end.

Минимальный пример:

version: "3.9"
services:
  redis:
    image: "redis:5.0.6"
    container_name: my-test-redis
    ports:
     - "6379:6379"

-- просто прокидываем в контейнер тот же порт, указываем какую именно версию редиса используем и назначаем имя контейнера

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

Напишите процедуру, которая выводит на экран сумму трёх целых чисел.

var a, b, c : integer;

procedure sum(x, y, z: integer);
begin
  writeln(x + y + z);
  end;
    begin
      write('vvedite tri 4isla - ');
      readln(a,b,c);
      sum(a,b,c);
      readln();
end.