fkn+antitotal

Урок 12.1 Задание 5

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

Урок №12.1 Задание 3

Выведите на экран, все числа от 55 до 9236

program Pr12_1_3;
var i:integer;

begin
  i:=55;
  repeat
   write(i,'  ');
    i:=i+1;
  until (i>=9236);
  readln();
end.

Консоль:

Урок№11 Задание 16

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

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

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

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

Урок №11 Задание 13

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

program Pr11_13;
var a,i:integer;
begin
i:=1;
writeln('Введите число: ');
readln(a);
while i<=5 do
begin
  write(a mod 10);
  a:=a div 10;
  i:=i+1;
end;
readln();
end.         

Консоль:

Введите число:
78941
14987

Урок №11 Задание 12

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

program Pr11_12;
begin
writeln(15 div 10);
writeln(15 mod 10);
readln();
end.    

Консоль:

1
5

Урок№11 Задание 11

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

program Pr11_11;
var i:integer;
begin
  i:=4;
  while (i<=100) do
    begin
      write(i:4);
      i:=i+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 Задание 10

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

Урок №11 Задание 9

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