fkn+antitotal

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

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
8 10 3 два числа 3 10 12 14 3 три числа 3 16 18 20 22 3 четыре числа 3....3....и т.д.

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

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 3 четыре числа 3 16 18 20 22 3 четыре числа 3....3....и т.д.

Заметьте. что в предыдущей задаче M
было зафиксировано =2:
8 10 3 два числа 3 14 16 3 два числа3....3....и т.д.

Решение:

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

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

Например, для N=20

получим результат:

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

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

Решение:

program u13z14;
var i,j: integer;
begin
  i:=1;
  repeat
    j:=1;
    repeat
      if (i mod j < 1) then
        writeln(i,':',j,' = ',i div j);
      j:=j+1;
    until j>9;
    i:=i+1;
  until i>9;
  readln();
end.

Консоль:

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

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

M := 3;
N := 15;

Получим:

9
27

Решение:

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

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

6
3

А для 8:

4
2
1

Решение:

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

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

Решение:

var i,j: integer;
begin
  repeat
    writeln('vvedite chislo');
    readln(i);
    if i = 0 then break;
    if i mod 2 = 0 then
      writeln('Chislo chetnoe')
    else
      writeln('Chislo ne chetnoe');
  until i=0;
  writeln('Poka');
  readln();
end.

Консоль:

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

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

Решение:

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

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

Решение:

program u13z09;
var i,j,n,m: integer;
begin
  writeln('vvedite m and n');
  readln(m,n);
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      write(j, ' ');
    end;
    writeln();
  end;
  readln();
end.

Консоль:

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

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

	
1 2 3 4 5
1 2 3 4 5

Решение:

program u13z08;
var i,j: integer;
begin
  for i:=1 to 2 do
  begin
    for j:=1 to 5 do
      write(j, ' ');
    writeln();
  end;
  readln();
end.

Консоль:

1 2 3 4 5
1 2 3 4 5