fkn+antitotal

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

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

Решение:

var a,b:integer;
begin
  a:=15 div 10;
  b:=15 mod 10;
  writeln('1:',a ,' 2:',b);
  readln();
end. 

Консоль:

1:1 2:5

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100

Решение:

var a:integer;
begin
a:=4;
while (a<=100) do
  begin
    writeln(a);
    a := a + 4;
  end;
readln();
end.  

Консоль:

4
8
12
16
20
24
28
32
36
40
44
48
52
56
60
64
68
72
76
80
84
88
92
96
100

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

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

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

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

Решение:

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

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

Решение:

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

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием if() и break;

var i:integer;
begin
  while (i <> 22) do
  begin
       writeln('vvedite chislo');
       readln(i);
       if(i<>22)then
         writeln('#');
  end;
readln();
end.

Консоль:

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

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Решение:

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

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Решение:

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

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

Решение:

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

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 11

7

Решение:

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

Консоль:

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