fkn+antitotal

Урок 11

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

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

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

1 2 3 4 5
1 2 3 4 5

program project1;
var i,j:integer;

begin
  i:=0;
    while(i<2)do
      begin
        j:=0;
        i:=i+1;
        while(j<5)do
          begin
            j:=j+1;
            write(j,' ');
          end;
        writeln();
      end;
  readln();
end. 

Урок 11

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Урок 11

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

Урок 13.1 задача 7

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

program project1;
var numb, i:integer;

begin
  i:=0;
  write('vvedite chislo: '); readln(numb);
  if(numb<0)then
    writeln('ERROR!')
  else
    while(i<numb)do
      begin
        write(i,' ');
        i:=i+2;
      end;
  readln();
end.             

Урок 11

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

var a: integer;

begin
  a := 35;

  while a <= 117 do
  begin
    if ((a mod 2) <> 0) and ((a mod 3) = 0) then
      writeln(a);
      a := a + 1;
  end;

end.

КОНСОЛЬ

39
45
51
57
63
69
75
81
87
93
99
105
111
117

Урок 11

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

Урок 11

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var a: integer;

begin
  writeln('Vvedite celoe chislo');
  readln(a);

  while a <= 15 do
  begin
    writeln(a + 7);
    writeln('Vvedite celoe chislo');
    readln(a);
  end;
end.

КОНСОЛЬ

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

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга, если среди есть неуникальные элементы, то удалите их, сдвинув значения влево, заполняя оставшиеся справа ячейки нулями.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для:

|1|-3|5|-3|9|5|8|

получим:

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
 
  readln();
end.     

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

program Project1021;
var i:integer;
begin
  for i:=1 to 10 do
  begin
    if (i = 4) then
      writeln(777)
    else if (i = 5) then
      break;
  end;
  readln();
end.