fkn+antitotal

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

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

Урок 15. Задача 17.

Дан массив длиной N (где 10≤N В качестве ответа (если отрезок найден) получите его начальный и конечных индекс - m и p ( 1≤m

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

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

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

Урок 15. Задача 16.

Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m

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

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

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

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

program  u131z3;
var i,j: integer;

begin
  i:=1;
  while (i <= 9) do
  begin
    j:=1;
      repeat
      begin

      write(i, '*', j, '= ', i*j, ' ');
      j:= j + 1;

      end;
      until (j > 9);


  i:=i + 1;
  end;
  readln();
end.         

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

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

program  u131z2;
var i,j: integer;
begin
  i:=1;

  while (i <= 9) do
  begin
    j:=1;
    while (j <= 9) do
    begin

      write(i, '*', j, '= ', i*j, ' ');
      j:= j + 1;

    end;

  i:=i + 1;
  end;
  readln();
end.    

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

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;
begin
  for i:=1 to 100 do
    if ((i mod 7) = 0) then
      write(i, ' ');
  readln();
end.

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

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i:integer;
begin
  for i:=35 to 117 do
    begin
      if ((i >= 35) and (i <= 117) and ((i mod 2) = 0)) then
        write(i, ' ')
      else if ((i >= 45) and (i <= 99) and ((i mod 2) <> 0)) then
        write(i, ' ');
    end;
  readln();
end.
              

Задача 7 Урок 10.1:

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