fkn+antitotal

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

У вас есть целочисленная переменная a и два строковых литерала:

'У Васи'

и второй:

'яблок'

Присвойте переменной a значение и выведете на экран фразу с этим значением -- используя указанные выше литералы (можно не только их, но их обязательно), например для:

a:=5;

Должно выводиться:

Возможный вариант установки для pdo_pgsql:

FROM php:8.1-fpm-alpine3.14

RUN apk --no-cache update \
    && apk add --no-cache autoconf g++ make \
    postgresql-dev \
    \
    && docker-php-ext-configure pgsql -with-pgsql=/usr/local/pgsql \
    \
    && docker-php-ext-install pdo_pgsql

-т.е. тут:

1. сначала ставится пакет postgresql-dev
2. потом конфигурируется pgsql параметром -with-pgsql=/usr/local/pgsql
3. и только затем устанавливается само расширение pdo_pgsql

Делаем так:

1. Подключаемся в командную оболочку запущенного контейнера с php, который "знает" команду docker-php-ext-install
2. Выполняем эту команду:
   

   docker-php-ext-install

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

Напишите программу, которая выводит на экран значения выражений:

5 + 2*3
6+7
8*9

двумя способами (чтобы в консоли получилось оба варианта):

• в столбик
• в строчку, разделив пробелами

begin
  writeln(5+2*3);
  writeln(6+7);
  writeln(8*9);
  write(5+2*3,' ');
  write(6+7,' ');
  write(8*9);
  readln;
end.

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

11
13
72
11 13 72

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

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var m : integer;

begin
  m := 1;
  while (m <> 0) do
  begin
    write('Enter an integer : ');
    readln(m);
    if (m mod 2 = 0) then
      writeln('This number is even')
    else
      writeln('This number is odd');
  end;
  readln();
end.

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

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

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

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:

1. 1......N}M раз
2. 1......N}

var M, N, i : integer;

begin
  write('Enter an integer m and n : ');
  readln(M, N);
  while (M > 0) do
  begin
    M := M - 1;
    writeln();
    for i := 1 to N do
      write(i, ' ');
  end;
  readln();
end.

Урок 13.1. Задача 8.

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

var a, b :integer;

var a, b : integer;

begin
  for a := 1 to 2 do
  begin
    for b := 1 to 5 do
      write(b, ' ');
    writeln();
  end;
  readln();
end.   

Урок 13.1. Задача 7.

var a, i : integer;

begin
  while (true) do
  begin
    write('Enter an integer : ');
    readln(a);
    if (a > 0) then
    begin
      for i := 1 to a do
        if (i mod 2 = 0) then
          write(i, ' ');
    end
    else
      writeln('This is mistake');
  end;
  read();
end.

Урок 13.1. Задача 6.

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

var a : integer;

begin
  while (true) do
  begin
    write('Enter an integer : ');
    readln(a);
    if (a > 0) then
      for a := 1 to a do
        write(a, ' ')
    else
      writeln('This is mistake');
  end;
  read();
end.