fkn+antitotal

Урок №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()
не использовать "обмен" (т.е. не присваивать одной переменной значение другой)

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

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