Урок 10.1

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

Выведите на экран, все числа N единиц (число задает пользователь)

var a,N: integer;
begin
  writeln('vvedite chislo');
  readln(a);
  for N:=1 to a do
    write(1,'');
  readln();
end.       


Вывод консоли:
vvedite chislo
5
11111 

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

Выведите на экран, все числа от 35 до 64.

var i:integer;
begin
  for i:=35 to 64 do
    writeln (i,' ');
  readln();
end.     
          
 
Вывод консоли:
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64 

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

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
-Если первое меньше второго, то в порядке возрастания, пример консоли:
1
5
ответ: 1 2 3 4 5
-Иначе в порядке убывания, пример консоли:
5
3
ответ: 5 4 3
-Проверить решение для пар значений:
10 20
- должны увидеть все числа от 10 до 20, и для:
20 10
-все числа от 20 до 10 в обратном порядке

var a,b:integer;
    i:integer;
begin
  write('vvedite 2 chisla ');
  readln(a,b);
  if a<b then
    for i:=a to b do
      write(i,' ')
  else if a>b then
      for i:=a downto b do
       write(i,' ');
  readln();
end.

Вывод консоли:
vvedite 2 chisla 10
20
10 11 12 13 14 15 16 17 18 19 20

vvedite 2 chisla 20
10
20 19 18 17 16 15 14 13 12 11 10

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

Выведите на экран, все четные числа от 35 до 64.

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

Вывод консоли:
36 38 40 42 44 46 48 50 52 54 56 58 60 62 64

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

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

\

var a, i:integer;
begin
  writeln('vvedite chislo');
  readln(a);
  if (a > 1) then
    begin
      for i:=a downto 1 do
        if (i mod 5 = 0) then
          write(i, ' ')
    end
  else write('Error');
  readln();
end.   

Вывод консоли:
vvedite chislo
50
50 45 40 35 30 25 20 15 10 5

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

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var a, i:integer;
begin
  readln(a);
  if (a > 100) then
    for i:=a downto 1 do
      write(i,' ')
  else
    if (a<100) then
      for i:=1 to a do
        write(i,' ');
  readln();
end.   

Вывод консоли:
101
101 100 99 98 97 96 95 94 93 92 91 90 89 88 87 86 85 84 83 82 81 80 79 78 77 76 75 74 73 72 71 70 69 68 67 66 65 64 63 62 61 60 59 58 57 56 55 54 53 52 51 50 49 48 47 46 45 44 43 42 41 40 39 38 37 36 35 34 33 32 31 30 29 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
Вывод консоли:
99
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99

Задача 7 Урок 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

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

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

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

Вывод консоли:
36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100 102 104 106 108 110 112 114 116
45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99

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

Вывод консоли:
40
42
44
45 46
47 48
49 50
51 52
53 54
55 56
57 58
59 60
61 62
63 64
65 66
67 68
69 70
71 72
73 74
75 76
77 78
79 80
81 82
83 84
85 86
87 88
89 90
91 92
93 94
95 96
97 98
99 100
102
104
106
108
110
112
114
116

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

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

var i:integer;
begin
  for i:=35 to 117 do
    if (i mod 3)=0 then
         write(i, ' ');
  writeln();
  for i:=45 to 99 do
    if (i mod 2)=1 then
         write(i, ' ');
  readln();
end.   
  
Вывод консоли:
36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117
45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99

Задача 10 Урок 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. 

Вывод консоли:
7 14 21 28 35 42 49 56 63 70 77 84 91 98