fkn+antitotal

Задача 17 урок 13.1

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

Задача 16 урок 13.1

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента.

var i,a,p,m: integer;
begin
i:=6;
readln(a);
readln(m);
if (a>0) and (a>=8) then
    while (i<a) do
    begin
        for p:=1 to m do
        begin
            i:=i+2;
            if (i<=a) then write(i,' ');
        end;
        if (i<a) then write('3',' ');
    end;
end.

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

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

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

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

var i, n: integer;
begin
  i := 35;
  n := 117;
  repeat
    if ((i mod 2)=0) and ((i mod 3)=0)
      and ((i mod 6)=0) then
      writeln(i, ' ');
    i := i + 1;
  until(i > n);
  write('konec ');
  readln;
end.  

КОНСОЛЬ:

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

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

var i, n: char;
begin
  i := '#';
  repeat
    write('vvedite chislo: ');
    readln(n);
    if (i <> n) then
      writeln('& ');
  until(i = n);
  write('konec ');
  readln;
end.  

КОНСОЛЬ:

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

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

var i,j,a: integer;
begin
for i:=1 to 9 do 
begin
    for j:=1 to 9 do
    begin
        a:=i*j;
        write(a,'/',j,'=',i,' ');
    end;
writeln();
end;
end.

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

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

Задача 13 урок 13.1

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

Задача 12 урок 13.1

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

var i: integer;
begin
readln(i);
if (i mod 2=1) then writeln('ошибка')
else 
    repeat
        i:=i div 2;
        writeln(i);
    until(i mod 2=1);
end.

Задача 11 урок 13.1

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

var i: integer;
begin
repeat
    readln(i);
    if (i mod 2=0) then writeln('четное')
    else writeln('нечетное');
until(i=0);
end.