fkn+antitotal

Урок 11

Урок 11

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

Урок 11

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

46541

(используйте опеции div и mod, подразумевается решение через цикл )

var i: integer;

begin
i := 14564;

  while (i <> 0) do
   begin
      write(i mod 10);
      i := i div 10;
   end;

end.

КОНСОЛЬ

46541

Урок 11

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

var i: integer;

begin
i := 15;

    writeln('Pervaya cifra = ', i div 10);
    writeln('Poslednyaya cifra = ', i mod 10);

end.

КОНСОЛЬ

Pervaya cifra = 1
Poslednyaya cifra = 5

Урок 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

var i: integer;

begin
i := 4;

  while i <= 100 do
  begin
    
    write(i, ' ');
    i := i + 4;

  end;

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

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

Урок 11

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

Урок 11

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

Урок 11

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

var a: integer;

begin
  writeln('Vvedite celoe chislo');
  readln(a);

  while a <> 22 do
  begin

      writeln('#');

    writeln('Vvedite celoe chislo');
    readln(a);

  end;

end.

КОНСОЛЬ