fkn+antitotal

http://fkn.ktu10.com/?q=node/8811

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

readln();
end.

Программа вывод на экран число 1 и все последующие с шагом 5(т.е 1, 6, 11 ... 99);

Вариант 1.
Используем цикл REPEAT/UNTIL

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

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

http://fkn.ktu10.com/?q=node/8811

var i: integer;
begin
for i:=5 to 34 do
write(i, ' ');

readln();
end.
1. Вывод целых чисел от 5 до 34 на экран;
2. 5...34:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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