fkn+antitotal

Урок 21

Пользователь получает на вход целое положительное число N напишите
рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого

Урок 21

Дано целое положительное число N, вычислите N! (эн факториал).

var n: integer;

function path(n: integer): integer;
begin
  if n > 1 then
  begin
    n := n*path(n - 1);
  end;
  path := n;
end;

begin
  n := 6;
  WriteLn(path(n));
  readln();
end.

КОНСОЛЬ

720

Урок 21

Дано целое положительное число A и целое положительно число B.
Выведите на экран все числа, расположенные между между ними.

var max, min: integer;

procedure path(max, min: integer);
begin
  if (max) > (min) then
  begin
    path(max - 1, min);
    write(max, ' ');
  end;
end;

begin
  max := 48;
  min := 23;
  path(max - 1, min);
  readln();
end.

КОНСОЛЬ

Урок 21

Дано целое положительное число N.
Выведите на экран все число от 1 до N (по возрастанию).

var n: integer;

procedure path(n: integer);
begin
  if n > 0 then
  begin
    path(n - 1);
    write(n, ' ');
  end;
end;

begin
  n := 5;
  path(n);
  readln();
end.

КОНСОЛЬ

1 2 3 4 5

Урок 21

Дано целое положительное число N.
Выведите на экран все число от N до 1 (по убыванию).

procedure path(n: integer);
begin
  if n > 0 then
  begin
    write(n, ' ');
    path(n - 1);
  end;
end;

begin
  n := 5;
  path(n);
  readln();
end.

КОНСОЛЬ

5 4 3 2 1

Задание 1 Урок 10.2:

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

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 оставьте без изменений).

Решение:

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

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

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

Вывод консоли:

7
14
21
28
35
42
49
56
63
70
77
84
91
98

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

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

var i:integer;
begin
   for i:=35 to 117 do
   begin
        if ((i mod 2) = 0) and ((i mod 3)=0) then
           write('chetnoe na 3:',i, ' ');
           writeln();
        if ((i >= 45)AND(i<=99) AND((i mod 2)=1)) then
           write('nechetnoe:',i, ' ');
   end;
   readln();
end.

Вывод консоли:

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

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

Решение 1:

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

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

var i:integer;
begin
     for i:=35 to 117 do
     if ((i mod 2) = 1) and ((i mod 3)=0) then
     write(i, ' ');
readln();
end. 

Вывод консоли:

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