fkn+antitotal

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

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

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

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

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

var
   a,b:integer;
begin
  writeln('Vvedite a: ');
  readln(a);
  writeln('Vvedite b: ');
  readln(b);
  writeln();
  if (a>b) then
    writeln('12');
    readln();
end.  

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

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

var a : array [1..7] of integer;
    i, b : integer;
begin
  for i := 1 to 7 do
    begin
      writeln('vvedi chislo');
      readln(b);
      a[i] := b;
    end;
  for i := low(a) to high(a) do
    begin
      writeln(a[i]);
    end;
  readln();
end. 

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

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

1 12 45 6 7 18 99

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

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
     begin
       writeln(a[i]);
     end;
   readln();
end.   

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

У вас есть три числа (три переменные) найдите их медиану

program project1;

var
  a, b, c: integer;

begin
  a := 1;
  b := 1;
  c := 2;
  if (((a>=b) and (a<=c)) or ((a<=b) and (a>=c))) then
    writeln ('Mediana: ', a)
  else if (((b>=a) and (b<=c)) or ((b<=a) and (b>=c))) then
    writeln ('Mediana: ', b)
  else
    writeln ('Mediana: ', c);

  readln();
end.

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

У вас есть программа, использующая цикл while:

var
   i: integer;
begin
  i:=1;
  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Объясните что делает эта программа (что будет выведно на экран и почему)
Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

С помощью repeat/until:

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

Имеется программа:

var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Ответьте на вопросы/выполните задания

Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

С помощью while:

Задача 5 Урок 12.1:

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Задача 4 Урок 12.1:

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var i: integer;
begin
  i := 35;
  repeat
    if (i mod 6 = 0) then
      begin
       write(i, ' ');
       i += 6;
      end
     else i += 1;
  until i > 117;
  readln();
end.

Задача 3 Урок 12.1:

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var i: char;
begin
  repeat
    writeln('Введите символ: ');
    readln(i);
    if (i <> '#') then writeln('&');
  until i = '#';
  readln();
end.