fkn+antitotal

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

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

1.. У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

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

1.Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке

var a,b:integer;
  begin
    writeln('Vvedite chiso iz 5 znakov: ');
    readln(a);
    while (a>0) do
      begin
        b:=a mod 10;
        write (b);
        a:=a div 10;
      end;
    readln();
  end.              

Вывод консоли:
Vvedite chiso iz 5 znakov:
12345
54321
 

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

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

begin
writeln('15 div 10 = ', 15 div 10);
writeln('15 mod 10 = ', 15 mod 10);
 readln;
end.               


    
Вывод консоли:
15 div 10 = 1
15 mod 10 = 5
 

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

1.Вывести на экран все числа от 4 до 100 с шагом 4

var a:integer;
begin
  a:=4;
  while a<=100 do
    begin
      write(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
 

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

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

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

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

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

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

С использованием if():

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

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