fkn+antitotal

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

Выведите на экран таблицу умножения используя только циклы вида while.

var i, j: integer;
begin
  i := 1;
  while i <= 9 do
    begin
      j := 1;
      while j <= 9 do
        begin
         write (i,'*',j,'=',i*j,' ');
         writeln();
         j := j + 1;
        end;
    i := i + 1;
    end;
  readln();
end.   

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

Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:

1x1 = 1
1x2 = 2
......

var i, j : integer;
begin
  i := 1;
  repeat
     begin
       j := 1;
       repeat
          write (i,'*',j,'=',i*j,' ');
          writeln();
          j := j + 1;
       until j > 9;
     end;
     i := i+1;
  until i >9 ;
  readln();
end.   

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

Выведите на экран 22 как число

begin
  writeln(22);
  readln();
end.

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

22

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

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.
Примеры для проверки:

Задача 3 урок 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

program zadacha3;
var a: array [1..7] of integer;
  i, j: integer;

begin
  for i:=low(a) to high(a) do
  begin
    writeln('Vvedite element massiva nomer ',i,':');
    readln(a[i]);
  end;
  j:=a[1];
  for i:=low(a) to high(a) do
    if a[i] > j then
      j:=a[i];
  writeln();
  writeln('Naibolshee chislo: ',j);
  readln();
end.  

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

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

program zadacha2;
var a: array [1..7] of integer;
  i: integer;

begin
  for i:=low(a) to high(a) do
  begin
    writeln('Vvedite element massiva nomer ',i,':');
    readln(a[i]);
  end;
  for i:=low(a) to high(a) do
    write(a[i],' ');
  readln();
end. 

Задача 1 урок 15

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

program zadacha1;
var a: array [1..7] of integer;
  i: integer;

begin
  a[1]:=1;
  a[2]:=12;
  a[3]:=45;
  a[4]:=6;
  a[5]:=7;
  a[6]:=18;
  a[7]:=99;
  for i:=low(a) to high(a) do
    write(a[i],' ');
  readln();
end.      

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

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

Используйте флаг --no-verify, например:

git commit --no-verify -m "Сообщение к коммиту"

1. Ранее мы уже настроили пользователя для работы с MySQL, теперь подключимся к СУБД командой в терминале:
   

   mysql -u myuser -p

   и создадим базу данных с именем sqlstart: