fkn+antitotal

Урок 12.1 Задача 2

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

Урок 12.1 Задача 1

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

var i:integer;
  begin
    i:=55;
    repeat
      writeln(i);
      i:=i+1;
    until (i>9236);

    readln();
  end.   

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

var i, k, a, b, c:integer;
  begin
    i:=0;
    while i<3 do
      begin
        readln(k);
        if (i=0) then
          a:=k
        else if (i=1) then
          b:=k
        else
          c:=k;
        i:=i+1;
      end;
    writeln(a, '   ', b,'   ',c);
    readln();
  end.